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Gedicht-Automat 

Machen  Sie  Ihren  Com¬ 
puter  zum  begnadeten 
Dichter.  Sie  geben  ein 
paar  Wörter  vor  und  der 
C  64  macht  daraus 
Lyrik-Strophen,  die  sich 
hören  und  sehen  las¬ 
sen  können.  Lyrik  3.0 
—  Eine  ungewöhnliche 
aber  sehr  interessante 
Anwendung  des  Mo¬ 
nats,  denn  das  Pro¬ 
gramm  erstellt  seman¬ 
tisch  korrekte  Sätze  mit 
»zufälligem«  Sinn. 

Seite  52 
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Hypra  Platos 

Dieses  Platinenlayout- 
System  läßt  das  Herz 
eines  jeden  Hobbyelek¬ 
tronikers  höher  schla¬ 
gen.  Jeder  der  schon 
einmal  Platinen  geklebt 
oder  gezeichnet  hat, 
weiß,  wieviel  Arbeit  und 
Zeit  investiert  werden 
müssen.  Diese  Arbeit 
nimmt  Ihnen  Hypra- 
Platos  ab.  So  können 
auf  einfachste  Weise 
doppelseitige  Platinen¬ 
layouts  erstellt  werden. 
Seite  52 
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Wettbewerbe 

Es  gibt  einiges  zu  ge¬ 
winnen:  Mehrere  Fi¬ 
scher  Construktion-Kit- 
Bausätze,  Messebesu¬ 
che  und  Buchgutschei¬ 
ne.  Bei  unserer  Ideen¬ 
parade  suchen  wir  die 
Anwendungen  des  The¬ 
mas  »Messen  —  Steu¬ 
ern  —  Regeln«.  Auch 
die  kurioseste  und  in¬ 
teressanteste  Hardware 
wird  belohnt.  Preise: 
ein  CP  80-X  und 
500  Mark  bares  Geld. 
Seite  172 
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Druckertest: 
Neue  Referenz 

Der  FX-85  überzeugt 
durch  sein  Leistungs¬ 
profil.  Er  wird  unsere 
neue  Referenz  in  der 
Preisklasse  über  1400 
Mark.  Mit  dem  JX-80 
kommt  endlich  Farbe 
aufs  Papier.  Der  MPS 
803  ist  der  kleinste 
Commodore-Drucker. 
Sie  erfahren,  warum 
der  SP  1000  VC  auf  der 
Suche  nach  seiner  ei¬ 
genen  Identität  ist. 

Seite  38 
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Joysticks 

Spielen  Sie  gerne? 
Dann  brauchen  Sie 
auch  einen  guten  Joy¬ 
stick.  Eine  Marktüber¬ 
sicht  und  ein  ausführli¬ 
cher  Test  ausgewählter 
Joysticks  stellt  Ihnen 
die  Kriterien  zur  Verfü¬ 
gung,  die  Ihnen  die 
Kaufentscheidung  er¬ 
leichtern  werden.  Wir 
sagen  Ihnen,  wofür  die 
verschiedenen  Joy¬ 
sticks  besonders 
geeignet  sind. 

Seite  18 


Bilder  aus  einer 
a nderen  Dimension 

Daß  Mathematik  auch 
durchaus  künstlerische 
Aspekte  aufweisen 
kann,  kennt  man  ja  von 
den  fantastischen  Gra¬ 
fiken  der  großen  Com¬ 
puter.  Aber  was  wäre 
der  C  64,  wenn  er  das 
nicht  auch  könnte.  Das 
Programm  »Apfelmänn¬ 
chen«  erstellt  fantasti¬ 
sche  Grafiken  aus  dem 
Wunderland  der 
Mathematik. 

Seite  80 
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Editorial 


Nur  Gutes? 

Da  hat  ein  Leser  kürzlich 
ein  EPROM-Programmier- 
gerät  gekauft  —  und  festge¬ 
stellt,  daß  sich  in  einem  tol¬ 
len  Gehäuse  eine  schäbige 
Platine  verbirgt,  die  Softwa¬ 
re  ein  fremdes  Copyright 
trägt  und  —  das  Ganze  nicht 
funktioniert.  Forderung  des 
Betroffenen,  der  sich  übri¬ 
gens  nicht  nach  dem  64’er- 
Test  richtete  und  »schwarze 
Schafe«  auch  genannt  wissen 
will:  »Der  Leser  hat  einen  An¬ 
spruch  darauf,  bei  Ver¬ 
gleichstests  vor  minderwer¬ 
tigen  Produkten  gewarnt  zu 
werden.« 

Wir  verfolgen  in  der  Re¬ 
daktion  eine  klare  Lime:  Der 
verfügbare  Platz  soll  für  Be¬ 
richte  über  interessante  und 
nützliche  Produkte  verwen¬ 
det  werden  —  für  etwas,  das 
nicht  oder  offenkundig  unzu¬ 
länglich  funktioniert,  wollen 
wir  nicht  auch  noch  Publicity 
machen.  Wegen  der  schnel¬ 
len  Entwicklung  der  Compu¬ 
tertechnik,  bekommen  wir 
öfter  aber  auch  unausgereif- 
te  Prototypen.  Ein  »Verriß« 
wäre  in  solchen  Fällen  in  der 
Regel  ungerechtfertigt;  wir 
verschieben  dann  den  Test, 
bis  eine  endgültige  Version 
vorliegt.  Hin  und  wieder  hat 
da  einer  Glück,  dessen  Pro¬ 
dukt  nur  so  aussieht,  wie  ein 
Prototyp  ...  Wir  hatten  bisher 
den  Eindruck,  daß  sich  die 
Zahl  der  wirklich  schwarzen 
Schafe  in  Grenzen  hielt  und 
ihre  Bedeutung  am  Markt 
(nicht  der  Ärger  der  Betrof¬ 
fenen!)  eine  besondere  Be¬ 
rücksichtigung  nicht  recht¬ 
fertigte.  Anderer  Ansicht? 
Dann  schreiben  Sie  uns  bitte. 


Michael  Pauly, 
Redaktions-Direktor 

8  sßfcj* 


Knapp  eine  Woche  lang 
gehörte  das  Olympia,  ein 
Messegelände  von  der  Grö¬ 
ße  eines  Fußballfeldes,  den 
Computer-  und  Software-Fir¬ 
men  (Bild  1).  Wie  schon  seit  7 
Jahren  trafen  sich  Englands 
Anbieter  um  ihre  Produkte 
vorzustellen.  Die  von  Jahr  zu 
Jahr  stets  stärker  werdende 
Software-Branche  hatte  dann 
auch  die  Hardware-Anbieter 
fast  verdrängt:  Auf  gut  80 
Prozent  der  Ausstellungsflä¬ 
che  gab  es  die  neuesten  Pro¬ 
gramme  zu  sehen,  wobei 
sich  das  Angebot  beinahe 
nur  auf  Spiele  beschränkte. 
Die  Messe  wird  von  der 
PCW  (Personal  Computer 
World),  einer  britischen  Zeit¬ 
schrift  für  Business-Anwen¬ 
dungen,  gesponsort.  Da  sich 
diese  Zeitschrift  wenig  mit 
Spielen  beschäftigt,  ist  ge¬ 
plant,  im  nächsten  Jahr  die 
Spieleanbieter  von  der  Mes¬ 
se  auszuschließen. 

Da  gleichzeitig  zur  PCW- 
Show  in  England  der  Verkauf 
des  C  128  beginnen  sollte, 
war  er  natürlich  Thema 
Nummer  1  am  Commodore- 
Stand  oder  sollte  es  zumin¬ 
dest  sein.  Denn  Commodore 


KW  —  Computer¬ 
messe  in  London 

Zur  gleichen  Zeit  wie  die  Berliner 
Funkausstellung  fand  in  London  die 
größte  Computermesse  Englands, 
die  PtW-Show,  statt. 


Bild  1.  Ein  Blick  von  oben  auf 
das  Gedränge  am  (ommodore- 
Stand  auf  der  PCW-Show 


England  hatte  zwaxzwölf 
128-Geräte  aufgesteÜC  doc 
auf  elf  von  ihnen  liefen  nur 
Spiele  im  C  64-Modus,  so 
zum  Beispiel  »Way  of  the  Ex- 
ploding  Fist«  und  »Dropzo- 
ne«.  Nur  Vorankündigungen 
und  Prospekte  gab  es  für  die 
Floppy  1571  und  den  Monitor 
1902,  Fertiggeräte  oder  Pro¬ 
totypen  gab  es  nicht  zu 
sehen.  Die  Auslieferung 
scheint  also,  zumindest  in 
England,  noch  einige  Pro¬ 
bleme  zu  bereiten. 

Zwei  Programme  konnten 
wir  auf  der  Messe  ent¬ 


X).  möglich  ist.  Die  Text- 

ch  Verarbeitung  »Superscript« 
arbeitet  wahlweise  mit  Me¬ 
nüs  oder  Direktkommandos. 
Es  ist  eine  Mini-Tabellenkal¬ 
kulation  für  Rechnungen  im 
Text  integriert.  Neben  allen 
Standard-Befehlen  bietet 
»Superscript«  die  80-Zei- 
chen-Darstellung,  enorm  ho¬ 
he  Geschwindigkeit  und  die 
Möglichkeit,  Befehlsmakros 
zu  definieren.  Da  beide  Pro¬ 
gramme  nur  64  KByte  benöti¬ 
gen,  können  sie  gleichzeitig 
im  Speicher  des  C  128  stehen 
und  es  kann  ohne  Datenver- 


mm um 


Bild  2.  Mit  dieser  Zusatztastur 
und  einem  Modul  im  Expansion- 
Pört  wird  der  C  64  fast  zur  pro¬ 
fessionellen  Heimorgel 


Bild  3.  In  diesem  unscheinbaren 
Kasten  verbirgt  sich  der  Sound 
Sampler 


decken,  die  den  C  128  aus¬ 
nutzen.  Es  handelt  sich  um 
die  umgeschriebenen  Ver¬ 
sionen  der  C  64-Programme 
»Superbase«  und  »Super¬ 
script«,  ein  Datenbanksy¬ 
stem  und  die  dazugehörige 
Textverarbeitung.  Entwic¬ 
kelt  wurden  sie  von  Preci- 
sion  Software.  »Superbase« 
ist  auf  dem  C  64  immer  noch 
die  leistungsfähigste  Daten¬ 
bank.  Die  C  128-Version  bie¬ 
tet  noch  viele  neue  Lei¬ 
stungsmerkmale,  darunter 
die  80-Zeichen-Darstellung. 
In  Verbindung  mit  der  1571 
sind  die  Diskettenzugriffe 
um  den  Faktor  10  beschleu¬ 
nigt  worden,  so  daß  profes¬ 
sionelles  Arbeiten  ohne  wei- 


lust  zwischen  ihnen  hin-  und 
hergeschaltet  werden.  Na¬ 
türlich  ist  auch  der  Aus¬ 
tausch  von  Daten  möglich. 
Die  Programme  sind  im  Prin¬ 
zip  fertig,  befinden  sich  aber 
noch  in  der  Testphase.  Sie 
sollen  noch  dieses  Jahr  in 
England  erhältlich  sein,  die 
Frage  nach  einem  deut¬ 
schen  Vertrieb  ist  noch  nicht 
geklärt. 

Neuheiten  auf  dem  Musik- 
Sektor  gab  es  am  Stand  von 
Commodore  zu  sehen.  Dort 
war  die  Firma  Music  Sales 
Ltd.  zu  Gast,  die  sich  auf 
Musik-Soft-  und  Hardware 
spezialisiert  hat.  Vörgestellt 
wurden  zwei  Hardware-Er¬ 
weiterungen  mit  dazu  pas¬ 


sender  Software.  Das  »Sound 
Studio«  verwandelt  ihren 
C  64  in  eine  achtstimmige 
Heimorgel  mit  Rhythmusge¬ 
rät  und  automatischer  Be¬ 
gleitung.  Die  dazugehören¬ 
de  Software  bietet  16  ver¬ 
schiedene  Instrumente,  16 
Rhythmen  und  16  Begleitun¬ 
gen  an.  Weitere  Eigenschaf¬ 
ten  der  Software  sind:  Auf¬ 
splitten  des  Keyboards  in 
zwei  Hälften,  um  zwei  Instru¬ 
mente  gleichzeitig  zu  spielen 
und  eine  Em-Finger-Melo- 
die-Automatik  für  den  Musik- 
Laien.  Zwei  Zusätze  wurden 
gleich  dazu  vorgestellt:  Ein 
Editor-Programm,  um  sich 
eigene  Sounds  zu  program- 
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mieren  und  eine  Zusatztasta¬ 
tur  (Bild  2),  die  der  einer 
Heimorgel  in  nichts  nachsteht . 

Ein  echter  Hammer  ist  der 
»Sound  Sampler«  von  Music 
Sales  Ltd.,  mit  dem  sich  Ge¬ 
räusche  digitalisieren  und  in 
allen  Tonhöhen  wiederge¬ 
ben  lassen.  Diese  Zusatz¬ 
hardware  für  den  Expan¬ 
sion-Port  des  C  64  (Bild  3)  bie¬ 
tet  maximal  vier  Kanäle  zur 
Tonausgabe.  Der  »Sound 
Sampler«  kann  aber  noch 
mehr:  Er  ist  gleichzeitig  ein 
digitales  Echo-  und  Hallge¬ 
rät  mit  frei  einstellbarem 
Dämpfungs-  und  Zeitverhal¬ 
ten  und  ein  Echtzeitvocoder, 
mit  dem  man  seine  Stimme 
beliebig  verzerren  kann, 
beispielsweise  in  die  von  Do¬ 
nald  Duck  oder  Darth  Vader. 
Die  Fähigkeiten  des  »Sound 
Samplers«  wurden  in  einer 
Live-Vorführung  wirkungs¬ 
voll  demonstriert.  Höhe¬ 
punkt  war  ein  waschechter 
Rap,  der  von  drei  C  64  mit 
»Sound  Sampler«  unterstützt 
wurde  und  einer  professio¬ 
nellen  Produktion  in  nichts 
nachstand.  Dieses  Zusatzmo¬ 
dul  soll  inklusive  der  Softwa¬ 
re  unter  hundert  Pfund  ko¬ 
sten,  was  knapp  400  Mark 
entspricht.  In  England  wird 
der  »Sound  Sampler«  über 
Commodore  vertrieben,  der 


deutsche  Vertrieb  ist  noch 
nicht  geklärt. 

Das  letzte  interessante 
Nicht-Spiel  war  »The  Music 
System«,  ein  neues  Musik- 
Programm,  das  den  SID- 
Chip  bis  aufs  letzte  Eck  aus¬ 
nutzt.  Weitere  Schlagwörter 
sind:  Benutzerführung  durch 
Windows,  Midi-Kompatibili¬ 
tät  und  Ausdruck  von  Noten¬ 
blättern.  Programmiert  wur¬ 
de  in  Zusammenarbeit  mit 
der  Plattenfirma  »Island  Mu¬ 
sic«,  vertrieben  wird  das  Pro¬ 
gramm  über  Firebird,  in 
Deutschland  demnächst 
über  Rushware. 

Der  Rest  des  Software-An¬ 
gebots,  gut  90  Prozent,  be¬ 
stand  nur  aus  Spielen.  Einige 
interessante  Neuheiten  wur¬ 
den  vorgestellt:  »Winter  Ga¬ 
mes«  von  Epyx  ist  nun  fertig 
und  soll  Ende  Oktober  aus¬ 
geliefert  werden.  Ocean 
kündigte  zwei  Spiele  zu  Film- 
Hits  an:  »The  Neverending 
Story«  (Die  unendliche  Ge¬ 
schichte)  und  »Rambo  —  First 
Blood  Part  2«,  der  in  Deutsch¬ 
land  unter  dem  Titel  »Rambo 
II  —  Der  Auftrag«  die  Kino- 


One«  und  »Asterix«  an.  Bei 
U.S.  Gold  gab  es  »Zorro«  und 
»The  Goonies«  nach  dem 
neuesten  Film  von  Steven 
Spielberg  zu  sehen. 

Die  beiden  neuen  Lucas- 
film-Spiele  »The  Eidolon«  und 
»Koroms  Rift«  sind  für  die 
Atari-Computer  fertigge¬ 
stellt  und  lieferbar,  die  C 
64-Versionen  sind  gerade  in 
Arbeit.  Zu  sehen  waren  sie 
am  Stand  von  »Activision«, 
die  die  europäischen  Rechte 
an  Lucasfilm-Spielen  erwor¬ 
ben  hat.  Weiterhin  neu  im 
Angebot  bei  Activision  sind 
»Hacker«,  ein  Adventure-Ac- 
tion-Strategie-Logik-Spiel, 
bei  dem  man  alles  selber 
herausknobeln  muß,  »The 
Little  Computer  People  Re¬ 
search  Project«,  ein  putziges 
Spiel  mit  kleinen  Menschen, 
die  im  C  64  wohnen  und  mit 
denen  man  sich  unterhalten 
kann,  und  »Barry  McGuigans 
Boxing«,  ein  sehr  gut  gelun¬ 
genes  Sportspiel.  Alle  Spiele 
werden  ab  sofort  in  England 
und  Deutschland  fast  gleich¬ 
zeitig  erscheinen,  da  Activi¬ 
sion  eine  deutsche  Zentrale 


Basic  aus  dem  »Basic  Light- 
ning«.  »Laser  Basic«  ist  voll 
auf  Spieleprogrammierung 
ausgerichtet.  So  hat  man  ne¬ 
ben  den  acht  Hardware- 
Sprites  auch  255  Software- 
Sprites  beliebiger  Größe  zur 
Verfügung.  Eine  deutsche 
Version  ist  in  Vorbereitung, 
die  in  Kürze  bei  Quelle  er¬ 
hältlich  sein  soll. 

Der  Gesamteindruck  von 
der  Messe  läßt  sich  kurz  zu¬ 
sammenfassen:  Spiele  sind 
in,  Musik  kann  sich  noch  hal¬ 
ten,  professionelle  Anwen¬ 
dungen  sind  out.  Diese  Aus¬ 
sage  güt  natürlich  nur  für 
den  englischen  Markt.  An 
Hardware  bleiben  die  Eng¬ 
länder  bei  ihren  bewährten 
Spielemaschinen,  dem  C  64 
und  dem  Spectrum.  Erfreu¬ 
lich  ist  der  Trend  zu  niedri¬ 
gen  Preisen:  Kaum  ein  Spiel 
ist  noch  teurer  als  zehn 
Pfund,  was  zirka  40  Mark  ent¬ 
spricht.  Diese  Preise  schla¬ 
gen  sich  auch  nach  und  nach 
auf  dem  deutschen  Markt 
nieder.  Alles  in  allem  steht 
uns  noch  einiges  an  hoch¬ 
qualitativen  Spielen  aus  Eng¬ 
land  bevor.  (bs) 

Info:  Piecision  Software  Ltd.,  Park  Housa  4 
Park  Terraca  Worcester  Park.  Surrey  KT4 
7JZ.  England 

Music  Sales  Ltd.  über  Commodore  (UK) 
Ltd.,  1  Huntersroad  Weldon.  Corby  NN17 
1QX,  Northamptonshire 


leinwände  blutig  macht,  in  Hamburg  gegründet  hat. 
Überhaupt  erobern  immer  Das  letzte  interessante  Pro¬ 
mehr  bekannte  Persönlich-  duktftL.  G  64-Besitzer  ist  das 
keiten  den  Computerschirm:  »Laser  Basic«  mit  dazu  pas- 
Melbourne  House  kündigte  sendem  Compiler.  Hervor- 
»Lord  of  the  Rings  —  Game  gegangen  ist  dieses  neue 


Killer-Fokes  — 

Gerücht  oder  Realität 

Es  wurden  schon  Programme 
beschuldigt,  Bausteine  des  C  64 
zerstört  zu  haben.  Uns,  die  64 'er- 
Redaktion,  interessiert  nun,  was 
wirklich  an  der  Sache  »dran«  ist. 
Ist  es  tatsächlich  möglich,  mit  ein 
paar  POKEs  oder  mit  einem 
noch  so  komplizierten  Pro¬ 
gramm  die  Hardware  des  C  64 
softwaremäßig  zu  zerstören? 
Wenn  Sie  ein  Killer-Programm 
haben,  schicken  Sie  es  uns  bitte 
zu.  Wir  sind  gern  bereit,  es  auf 
seine  »Funktionsfähigkeit«  hin  zu 
überprüfen.  Schreiben  Sie  uns 
bitte  auch,  wenn  Sie  Erfahrun¬ 
gen  zu  diesem  Thema  haben. 
Zum  Beispiel,  wenn  ein  Händler 
einen  Garantieanspruch  des¬ 
halb  verweigerte.  (hm) 


Adresse: 

Markt  &  Technik 
Verlag  Aktiengesellschaft 
Harald  Meyer 
Hans-Pinsel-Str.  2 
8013  Haar  bei  München 
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Intelligente  Zusatz¬ 
tastatur  für  den  C  64 

Eine  Neuheit  für  den  C  64:  Ei¬ 
ne  Zusatztastatur  mit  22  frei  pro¬ 
grammierbaren  Tasten.  Die  TA3 
(Bild)  ist  eine  intelligente  Tasta¬ 
tur.  Das  bedeutet,  daß  zur  Pro¬ 
grammierung  der  Tastenfunk¬ 
tion  kein  Speicherplatz  des  C  64 
verbraucht  wird  oder  Betriebs¬ 
system-Routinen  verändert  wer¬ 
den.  Der  Anschluß  der  TA3  er¬ 
folgt  an  der  Systemplatine  des  C 
64,  am  Steckplatz  der  Standard- 
Tastatur.  Dazu  wird  der  Original¬ 
stecker  abgezogen,  der  Zwi¬ 
schenstecker  mit  dem  Verbin¬ 
dungskabel  zur  Zusatztastatur 
aufgesteckt  und  der  Original- 
stecker  an  dem  Zwischenstück 
angeschlossen. 

Die  Tastatur  kann  bis  zu  50  Zei¬ 
chensätze  speichern.  Da  der  Ta¬ 
staturspeicher  Akku-gepuffert 
ist,  bleiben  die  Zeichensätze 
auch  nach  dem  Abschalten  des 
C  64  erhalten.  Zum  Betrieb  lie¬ 
fert  der  C  64  den  nötigen  Strom 
(100  mA).  Zwei  Leuchtdioden  zei¬ 


gen  den  Betriebs-  oder  Pro¬ 
grammiermodus  an.  Die  Tasten¬ 
kappen  bestehen  aus  zwei  Tei¬ 
len:  dem  eigentlichen  Tasten¬ 
knopf  und  einer  transparenten 
Abdeckung.  Die  Abdeckung 
soll  die  Beschriftung  vor  Abgriff 
schützen.  Ein  Bogen  mit  den  Ta¬ 
stensymbolen  des  C  64  ist  im  Lie¬ 


ferumfang  enthalten.  Der  Preis 
der  TA3  beträgt  179  Mark. 

Besitzer  der  Zusatztastatur 
TA2  können  diese  zur  TA3  »auf¬ 
rüsten«.  Der  Preis  für  die  dazu 
benötigte  Steuerplatine  beträgt 
79  Mark.  (hm) 

Info.  Oskar  Hubert  Maurer,  Haingraben  23, 
6309  Münzenberg.  Tel.  06004/2737 


Der  intelligente  Nachfolger  der  TA2,  die  TA3,  mit  freiprogrammier¬ 
baren  Tasten. 
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Aktuell 


Neues  Disketten¬ 
programm  von  RPS 

RPS  Rhone-Poulec-Systeme 
bietet  ab  20.9.85  ein  neues  Dis¬ 
kettenprogramm  an:  High  Fo¬ 
cus-Disketten.  Durch  ein  neues 
Beschichtungsverfahren  (En- 
hanced  Isotropie  Coating)  soll 
eine  absolut  gleichmäßige  Be¬ 
schichtung  erzielt  werden,  die 
Lesefehler  ausschließt.  Es  sol¬ 
len  alle  gängigen  Typen  der 
Größen  3,25  bis  8  Zoll  angeboten 
werden;  einschließlich  High 
Density. 

Die  High  Density-Diskette  mit 
96  tpi  soll  eine  mit  Kobalt  ange¬ 
reicherte  Magnetschicht  haben. 
Die  Diskette  soll  eine  Speicher¬ 
kapazität  von  1,6  MByte  haben. 

Durch  das  neue  Beschich¬ 
tungsverfahren  sollen  sich  Vor¬ 
teile  ergeben:  »Auf  den  her¬ 
kömmlichen  Disketten  sind  die 
Magnetteilchen  in  eine  be¬ 
stimmte  Richtung  orientiert, 
nämlich  in  die  des  Magnetflus¬ 
ses,  entlang  des  Polyesterban¬ 
des,  aus  dem  die  Diskette  ge¬ 
stanzt  wurde.  Während  des  Dis¬ 
kettenlaufs  ist  die  bevorzugte 
Richtung  der  Teilchen  wechsel¬ 
weise  parallel  und  senkrecht 
zum  Lesekopf.  Dies  bewirkt  ab¬ 
wechselnd  ein  starkes  und 
schwaches  Signal,  was  für  den 
Benutzer  den  Sicherheitsbe¬ 
reich  verringert«.  Durch  das 
»Enhanced  Isotropie  Coating«- 
Verfahren  soll  eine  bestimmte 
Richtung  der  Magnetteilchen  im 
unmagnetisierten  Zustand  nicht 
mehr  existieren.  Die  Teilchen 
sollen  über  alle  Richtungen  ver¬ 
teilt  sein,  was  ein  gleichbleiben¬ 
des  Niveau  des  Lesesignals  be¬ 
wirkt.  (hm) 

Info:  Heinz  Trippei,  Rhone  Poulec  Systeme 
GmbH,  60S7  Dietzenbach,  Tel.  06074/2091 

Neues  Kopierprogramm 
für  kopiergeschützte 

Software 

Mit  Copy+  liegt  wieder  ein¬ 
mal  ein  Kopierprogramm  vor, 
das  für  die  Benutzer  bestimmt 
ist,  die  Sicherheitskopien  von  ih¬ 
ren  teuer  erworbenen  Origina¬ 
len  nicht  extra  bezahlen,  son¬ 
dern  selber  erstellen  wollen. 

Copy+  benötigt  für  den  Be¬ 
trieb  ein  Parallel-Kabel,  wie  es 
beispielsweise  bei  SpeedDos 
verwendet  wird.  Dieses  Kabel 

ist  ebenfalls  beim  Vertrieb  von 
Copy  +  erhältlich. 

Copy+  arbeitet  nach  dem 
»Burst-Copy«-Prinzip.  Dabei  wird 
ein  Track  in  einer  Umdrehung 
der  Diskette  gelesen  und  ge¬ 
schrieben.  Zusätzlich  wird  der 
Track  vorher  analysiert,  Copy  + 
bietet  volles  Verify,  Kopieren  al¬ 
ler  Spuren  und  Halbspuren  von 
1  bis  41,  sowie  die  Möglichkeit 
des  Sector-Shorting,  mit  dem 

io  ossa? 


Drehzahlschwankungen  des 
Laufwerk-Motors  ausgeglichen 
werden.  Zusätzlich  läßt  sich  soft¬ 
waremäßig  die  Schreib-/Lese- 
Geschwindigkeit  auf  den  einzel¬ 
nen  Tracks  ändern.  Dies  wird  in 
neueren  Kopier-Schutzverfah- 
ren  verwendet. 

Erfreulicherweise  ist  der  Ko¬ 
piervorgang  recht  schnell:  Ein¬ 
einhalb  Minuten  werden  für  ei¬ 
nen  Backup  benötigt,  rechnet 
man  die  Zeit  für  die  fünfzehn  (!) 
Diskettenwechsel  nicht  mit. 

Insgesamt  gesehen  ist  Copy  + 
eines  der  mächtigsten  Kopier¬ 
programme.  (bs) 

Info:  Frank  Thomas,  Neckarstr.  34,  60S7 
Dietzenbach.  Preis  (ohne  Kabel)  99  Mark. 


Hexer  als  Bausafz 
und  Fertiggerät 

Die  Hextastatur  für  den  MSE 
gibt  es  inzwischen  zu  kaufen.  So¬ 
wohl  als  Bausatz  oder  als  Fertig¬ 
gerät.  Der  Bausatz  ohne  Gehäu¬ 
se  kostet  59  Mark,  das  Gehäuse 
19,50  Mark.  Der  Gehäuseaus¬ 
schnitt  für  das  Tastenfeld  ist  be¬ 
reits  vorhanden.  Das  Fertiggerät 
(Bild)  wird  für  96  Mark  angebo¬ 
ten.  Die  Bestellbezeichnung  lau¬ 
tet  STH  24.  Geben  Sie  genau  an, 
ob  Bausatz,  Gehäuse  oder  Fer¬ 
tiggerät.  (hm) 

Info:  Steinmetz  Elektronik,  Nürnberger  Str, 
49,  8600  Bamberg,  Tel.  0931/202638 


Die  Selbstbau-Hextastatur  aus 
der  letzten  64'er-Ausgabe  gibt 
es  als  Bausatz  und  Fertiggerät. 


Interims-Floppylauf- 
werk  für  den  C  128 

Aufgrund  von  technischen 
Problemen  mit  der  1571  zieht 
Commodore  ein  anderes  Lauf¬ 
werk  für  den  C  128  vor:  Die  1570 
ist  die  kleine  Schwester  der  1571. 

Sie  arbeitet  nur  einseitig,  hat  al¬ 
so  die  halbe  Kapazität  wie  die 
1571  oder  dieselbe  wie  die  1541. 
Ansonsten  sollen  die  techni¬ 
schen  Daten  identisch  zur  1571  t 

sein.  Die  1570  soll  ab  sofort  zu 
einem  Preis  von  798  Mark  im 
Handel  erhältlich  sein.  Die  1571 
wird  voraussichtlich  Ende  die¬ 
ses  Anfang  nächsten  Jahres 
kommen  und  soll  die  1570  dann 
wieder  ablösen.  Ein  Testbericht 
ist  in  Vorbereitung.  (bs) 


Info  Commodore  Büromaschinen,  Comrno- 

Frappierende  Ähnlichkeit  zur  1541  -  Die  neue  1570  doreHotiine:  069/66382 n 


Gehäuse  für  den  C  64 

Die  Firma  Oskar  Hubert  Mau¬ 
rer  bietet  für  den  C  64  auch  ein 

spezielles  Gehäuco  (Bild)  an.  In 
das  Gehäuse  passen:  die  C 
64-Pla:ine,  Netzteil  und  zwei  Dis¬ 
kettenlaufwerke.  Zusätzlich  oiht 

es  einen  geregelten  Lüfter  für 
die  Laufwerke,  eine  ansteckba¬ 
re  C  64-Tastatur  mit  zusätzlichem 
10er-  und  Hex-Block  und  einen 
regelbaren  NF-Verstärker  mit 
Lautsprecher.  Auf  der  Gehäuse¬ 
oberseite  sind  Ablagemulden 

für  eine  Datasette  und  Disketten 

oder  Kassetten  vorhanden.  Ein 
Monitor  findet  auch  Platz. 

Alle  Umbauarbeiten  sollen 
ohne  Löten  möglich  sein. 

Preisanfragen  richten  Sie  bitte 
an  die  Firma.  Auch  Sonderwün¬ 
sche  bezüglich  der  Gehäuse¬ 
durchbrüche  will  die  Firma,  ge¬ 
gen  Aufpreis,  berücksichtigen. 

(hm) 

Info:  Oskar  Huben  Maurer,  Haingraben  23, 

6309  Münzenberg,  Tel.  06004/2737 

Ausgabe  11 /November  1985 

64er-online.de 

64er-online.net 


lies  in  einem  Gehäuse.  Der  Zusammenbau  soll  ohne  lötarbeiten 
n«mit  ict  CrhlnR  mit  dem  Kabelsalat. 


Aktuell 


Chemie-Programme 
für  C  64 


Unter  der  Bezeichnung  »CLB- 
Software  für  Chemie  und  Labor« 
bietet  die  im  Umschau-Verlag 
erscheinende  Fachzeitschrift 
CLB  (Chemie  für  Labor  und  Be¬ 
trieb)  eine  Vielzahl  von  Pro¬ 
grammen  für  C  64  und  Apple- 
Rechner  an. 

Auch  Hardware  zur  Meßda¬ 
tenerfassung  mit  dem  C  64  wird 
angeboten.  Die  Preise  für  einzel¬ 
ne  Programme  liegen  zwischen 
25  und  55  Mark.  Nähere  Infor¬ 
mationen  und  Bestellunterlagen 
gibt  es  von  der  CLB-Redaktion 
oder  von  CLB-Marketing.  (ev) 

Info:  CLB-Redaktion,  Birkenstr.  la,  Postfach 
1247,  5840  Schwerte 

CLB-Marketing,  Umschau-Verlag,  Stuttgar¬ 
ter  Str.  18—24,  6000  Frankfurt  1 


Staubschutzhaube 
mit  integrierter 
Schreibablage 

Einen  interessanten  Zweitnut¬ 
zen  bietet  eine  neuartige  Staub¬ 
schutzhaube  von  Lindy-Elektro- 
nik.  In  die  Haube  aus  rauchfar- 
benem  Kunststoff  wurde  eine 
Schreibfläche,  ein  Ablagefach 
für  Notizzettel  und  ein  weiteres 
Fach  zum  Aufbewahren  von 
Schreibutensilien  integriert.  Die 
Lindy-Staubschutzhaube  ist  für 
die  Commodore-Computer  C 
64,  VC  20  und  C  16  lieferbar.(ev) 

Info:  Die  Staubschulzhaube  ist  erhältlich  in 
den  Computerabteilungen  von  Hertie  und 
Karstadt,  in  VEDES-Geschäften  mit  Compu¬ 
terabteilung  und  in  Computershops.  Emp¬ 
fohlener  Verkaufspreis  20  Mark. 


Hama  im  Computer- 
Zubehörgeschäft 


Hamaphot  (Warenzeichen  ha¬ 
ma)  ist  neuerdings  auch  im  Zu¬ 
behörmarkt  für  Computer  ver¬ 
treten.  Hamaphot  ist  seit  dem 
1.8.85  über  Btx  zu  erreichen. 
Nummer  *26  666#.  Angeboten 
werden  aktuelle  Fototips  und  ei¬ 
ne  Seite  zur  Bestellung  des 
»Zubehör-Ratgebers  85/86«.  Die 
Seite  kostet  allerdings  9,99  Mark 
(Schutzgebühr).  Über  eine  Dia¬ 
logseite  können  spezielle  Infor¬ 
mationen  angefordert  werden. 
Der  Computer-Zubehörkatalog 
»Computer  Faszination«  kann 
von  Hamaphot  direkt  bezogen 
werden.  Hier  wird  eine  Menge 
an  Zubehör  angeboten:  Vom  Rei¬ 
nigungsstäbchen  für  den  Tbn- 
kopf  der  Datasette  bis  zum  Ver¬ 
bindungskabel  Monitor- 

Computer. 

(hm) 

Info:  Hamaphot  KG,  Postfach  80,  8855  Mon¬ 
heim,  Tel.  09091/1011 


äh.  di^  Die  ntov.  »DataBox«  von  Verbatim 


Neues  Disketten-Set 
von  Verbatim 

In  einer  »DataBox«  b 
batim  zehn  Disketten 
100%-fehlerfrei  sein  sollen.  Zwei 
Ausführungen  stehen  zur  Verfü¬ 
gung  Single  Sided/Double 
Density  (48  tpi)  oder  Double  Si¬ 
ded/Double  Density  (48  tpi).  Die 
durchschnittliche  Lebensdauer 
soll  30  Millionen  Datenzugriffe 
pro  Spur  betragen.  Die  »Data¬ 


Box«  (Bild)  ist  eine  Kunststoffbox 
zur  Aufbewahrung  von  bis  zu  50 
5,25-Zoll-Disketten.  Sie  ist  mit 
fünf  beweglichen  Registern  und 
Anti-Rutsch-Füßen  ausgestattet. 
Zusätzlich  enthält  die  »DataBox« 
drei  Schreibstifte  für  Disketten. 


Mit  ihnen  soll  ein  Disketteneti¬ 
kett  ohne  Beschädigung  der  Dis¬ 
kette  beschrieben  werden  kön¬ 
nen.  Die  Farbe  ist  wischfest.  Im 
Handel  soll  die  »DataBox«  etwa 
75  Mark  kosten. 


Programme  gepackt 

Programmautoren,  die  ihre 
Software  auf  geringstmöglichen 
Speicherbedarf  zusammen¬ 
packen  wollen,  wird  der  »Com- 
packer  V.2«  eine  große  Hilfe 
sein.  Mit  diesem  Utility  lassen 
sich  Programme  vollautoma¬ 
tisch  auf  geringen  Speicherbe¬ 
darf  hin  optimieren.  Dabei  wer¬ 
den  verschiedene  Verschlüssel¬ 
ungs-Algorithmen  angewandt. 

Eine  weitere  interessante 
Möglichkeit  ist  es,  mehrteilige 
Programme  m  einem  File  zusam¬ 
menzufassen.  Der  Benutzer  muß 
nur  die  Einsprungadresse  ange¬ 
ben,  mit  der  das  Programm  nach 
dem  Entpacken  sämtlicher  Teile 
gestartet  wird.  Für  dieses  si¬ 
cherlich  nützliche  Produkt  wird 
auch  nicht  viel  verlangt:  35  Mark 
soll  der  »Compacker«  kosten. 

Cos) 

Info:  Stefan  Husch,  Butznickelstr.  29,  6246 
Schloßborn 


Zum  Wersiboard 
ist  neue  Software 
erhältlich 


Sound  Pak  3  (Sound-Creativ-System) 

Ein  Ton-Experimentier- Pro¬ 
gramm,  das  sich  besonders  für 
experimentelle  Musik  und  zur 
Gehörschulung  eignet.  Auch  die 
Tonabstände  der  Wersiboard- 
Tasten  lassen  sich  damit  einstel¬ 
len.  Das  heißt,  daß  eigene  Ton¬ 
leitern  geschaffen  werden  kön¬ 
nen. 

Preis:  39,50  Mark 


Drei  neue  Programme 
für  das  Wersiboard 

Das  Wersiboard  ist  eine  an 
den  C  64  anschließbare  Klavier- 
tastalur  (Bild,  siehe  auch  64 'er, 
Ausgabe  9/85,  Seite  17).  Die  bei¬ 
den  mitgelieferten  Basic-Pro- 
grarr.me  konnten  jedoch  nicht  so 
recht  überzeugen.  Eine  Verbes¬ 
serung  verprechen  die  drei  neu¬ 
en  Sound-Editoren,  die  jetzt  vor¬ 


gestellt  wurden.  Alle  drei  kön¬ 
nen  zusätzlich  zum  Sound  Pak  1, 
das  im  Lieferumfang  enthalten 
ist,  gekauft  werden. 


Sound  Pak  2  (Sequenzer/Synthesizer) 

Dieses  Programm  erlaubt  die 
freie  Aufnahme  von  Melodiefol¬ 
gen  (Sequenzen).  Sie  können 
selbst  gespielte  Musikstücke  auf 
Diskette  speichern. 

Preis:  89,50  Mark 


Sound  Pak  4  (Rhythmusbox) 

Die  Rhythmusbox  ist  ein  elek¬ 
tronisches  Schlagzeug.  Neben 
dem  Steuerprogramm  ist  noch 
zusätzlich  ein  Steuergerät  erfor¬ 
derlich.  Am  Steuergerät  können 
über  mehrere  Potentiometer 
und  Schalter  verschiedene 
Rhythmen  eingestellt  werden. 
Preis:  189  Mark  (Programm  und 
Hardware)  (tr) 


Info:  Wersi  Orgel-  und  Pianobausätze,  Indu- 
striestr.,  5401  Halsenbach,  Tel.  06747/1230 
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Diskettenfertigung  im 
Kaufhaus 

Düsseldorf  (hm)  —  Einen  beson¬ 
deren  Kundenservice  ließ  sich 
das  Warenhaus  Horten,  zusam¬ 
men  mit  dem  Diskettenherstel¬ 
ler  Sentinel  einfallen.  Während 
der  belgischen  Wochen  im  Kauf¬ 
haus  Horten  zeigte  Sentinel,  wie 
Disketten  hergestellt  werden. 
Sentinel-Direkt-Agent  Nusch: 
»Trotz  vieler  gegenteiliger  Mei¬ 
nungen  haben  wir  es  geschafft, 
unsere  Maschinen  in  einem 
Kaufhaus  zu  installieren.« 

Anläßlich  der  »belgischen 
Wochen«  wurde  im  Horten-Com- 
puter-Center  erstmals  in  einem 
Kaufhaus  die  Fertigung  von  Dis¬ 
ketten  vorgenommen.  Hierzu  hat 
die  Firma  Sentinel  aus  Belgien 
entsprechende  Maschinen  mit¬ 
gebracht,  bei  deren  Aufbau  al¬ 
lerhand  Probleme  gemeistert 
werden  mußten.  Eines  war  die 
fehlende  Staubfreiheit  der  Luft, 
die  im  Werk  zu  bestimmten  Ar¬ 
beitsgängen  gewährleistet  ist, 
im  Warenhaus  aber  unmöglich 
einzuhalten  ist.  Ein  anderes  Pro¬ 
blem  war  die  Kühlung  der  Falz¬ 
maschine,  die  das  Disketten- 
Jacket  (Hülle,  in  der  die  magne¬ 
tisch  beschichtete  Plastikschei¬ 
be  steckt)  verschließt  und  ver¬ 
schweißt.  Mit  einem  genialen 
wie  einfachen  Trick  bekamen 
die  Mitarbeiter  von  Horten  und 
Sentinel  auch  das  Kühlungspro¬ 
blem  in  den  Griff,  so  daß  man 
die  großen  Kühlmaschinen  in 
Belgien  stehen  lassen  konnte. 

Sentinel  ist  einer  der  größten 
Diskettenhersteller  Europas. 
Pro  Monat  werden  um  zwei  Mil¬ 
lionen  Disketten  hergestellt,  von 
denen  ein  großer  Teil  unter  dem 
Namen  Diskmaster  über  Horten 
verkauft  wird.  Horten  bezeich¬ 
net  sich  als  einen  der  größten 
Diskettendistributoren  in 

Deutschland. 

Am  Montag,  den  2.9.  konnte 
dann  die  »Produktion«  anlaufen. 
Von  Belgien  brachte  man  offene 
Jackets  mit  den  eingesteckten 
»Magnetscheiben«  mit.  Interes¬ 
sierte  konnten  sich  dann  genau 
ansehen,  wie  die  Jackets  zuge- 
talzt  und  verschweißt  werden. 
Anschließend  wurden  die  Dis¬ 
ketten  elektronisch  auf  ihre 
Funktionsfähigkeit  und  Spei¬ 
cherdichte  hin  überprüft,  etiket¬ 
tiert  und  von  Hand  verpackt 
(Büd  1). 

Für  die  Kaufhaus-Produktion 
fuhren  vom  2.9.  bis  zum  14.9  je¬ 
den  Tag  drei  Sentinel-Mitarbei- 
ter  aus  Wellern  in  Belgien  nach 
Düsseldorf  und  wieder  zurück. 

Der  übrige  Produktionspro¬ 
zeß  wurde  mit  Videofümen  ge¬ 
zeigt,  die  im  Werk  aufgenom¬ 
men  wurden.  Bei  speziellen  Fra¬ 
gen  bekam  man  ausführliche 
Antworten. 

Wie  groß  das  Interesse  an  die¬ 
ser  Aktion  war,  bewies  die  statt- 

12 


Bild  1.  Diskettenherstellung: 
Prüfen  und  klassifizieren 


Bild  3.  Mobilitätsbeweis: 
DFÜ  mit  dem  Autotelefon 


Bild  4.  Hier  werden  vor  20  bis 
22  Teilnehmer  Basic-Kurse  ge¬ 
geben. 


liehe  Anzahl  von  Besuchern,  die 
fast  den  ganzen  Tag  über  die 
Maschinen  umringten.  Auch 
sehr  viele  Lehrer  kamen  mit  ih¬ 
ren  Informatikklassen  zur  Be¬ 
sichtigung  (Bild  2). 

Gleichzeitig  fanden  fortlau¬ 
fend  Vorführungen  zum  Thema 
Datenfemübertagung  (DFÜ) 
statt.  Es  wurde  erklärt,  wie  man 
mit  einem  Akustikkoppler  um¬ 
geht,  wie  man  Mailboxen  an¬ 
zapft  und  Texte  überträgt.  Um 
die  Mobilität  einer  Datenfern¬ 
übertragung  aufzuzeigen,  stellte 
man  die  Telefonverbindungen 
über  ein  Autotelefon  her  (Bild  3). 

Ein  anderer  Service,  den  Hor¬ 
ten  anbietet,  sind  Computerkur¬ 
se  für  Basic-Anfänger  und  Fort¬ 
geschrittene.  Die  Gebühr  für  die 
sechsstündigen  Kurse  betragen 
39  Mark.  Die  sechs  »Schulstun¬ 
den«  werden  auf  drei  Tage  ver¬ 
teilt.  Auch  Samstagskurse  sind 
inzwischen  geplant.  Als  Schu¬ 
lungsgeräte  werden  C  64  ver¬ 
wendet.  Emen  Blick  in  das  Düs¬ 
seldorfer  Schulungszimmer,  das 
sich  20  bis  22  Schüler  teilen, 
zeigt  Bild  4. 

In  Kürze  will  Horten  einen 
Quick-Service  für  Computer 
und  Floppy-Laufwerke  einrich¬ 
ten.  Vorerst  will  man  sich  dabei 
noch  auf  Geräte  von  Commodo- 
re  und  Atari  beschränken.  Der 
Kunde  kommt  mit  seinem  defek¬ 
ten  Gerät  zur  Reparaturstelle  ins 
Ware- . ;  aus  und  "kann  auf  die  Re¬ 
paratur  warten.  Bei  der  Repara¬ 
tur  soll  der  Kunde  zuschauen 
können.  Dabei  soll  den  Kunden 
genau  erklärt  werden,  was  de¬ 
fekt  ist  und  wie  der  Schaden  be¬ 
hoben  wird.  Vielleicht  kann 
dann  die  nächste  Reparatur, 
falls  der  Defekt  ein  zweites  Mal 
überhaupt  wieder  auftritt,  dann 
selbst  ausgeführt  werden.  Bei 
Redaktionsschluß  stand  noch 
nicht  fest,  wann  und  in  welchem 
Horten-Warenhaus  diese  Aktion 
gestartet  wird.  Sollte  diese  Ak¬ 
tion  Schule  machen,  wäre  dies 
ein  gewaltiger  Fortschritt  der 
Reparatursituation  bei  Heim¬ 
computern,  denn  häufig  sind 
mehrwöchige  Wartezeiten  im¬ 
mer  noch  an  der  Tagesordnung. 


Sprachsynthesizer 
für  den  C  64 

Für  den  C  64  sind  zwei  neue 
Sprachsynthesizer  auf  den 
Markt  gekommen.  Beide  Syste¬ 
me  arbeiten  nach  demselben 
Prinzip:  Der  zu  sprechende  Text 
wird  aus  Phoneme  zusammen¬ 
gesetzt. 

Von  Astech  Computer  gibt  es 
das  Speech-64-Modul,  das  am 
Expansion-Port  angeschlossen 
wird.  Im  Preis  von  119  Mark  ist 
ein  Begleitheft  in  englischer 
Sprache  und  eine  Demodiskette 
enthalten.  Die  Programmierung 
erfolgt  über  den  Befehl  SAY,  der 
auf  dem  C  64  implementiert 
wird.  Die  Worte  werden  nach 
den  Regeln  der  englischen 
Sprache  ausgesprochen,  was 
bei  deutschen  Wörtern,  in  unse¬ 
rem  Test,  zu  Unverständlichkei¬ 
ten  führte. 

Das  Sprachsystem  von  Helmut 
Hausknecht  wird  ebenfalls  in 
den  Expansion-Port  gesteckt. 
Bevor  aber  Basic-Programme 
das  Sprechen  lernen,  müssen 
die  Phonem-Codes  in  DATA-Zei- 
len  abgelegt  werden.  Werden 
die  DATAs  dann  in  ein  Register 
des  Sprachsynthesizers  gePO- 
KEt,  werden  sie  über  den  SID- 
Chip  des  C  64  als  Phonem  aus¬ 
gegeben.  Über  andere  Register 
kann  der  Klang  der  Stimme  be¬ 
einflußt  werden.  Der  Sprach¬ 
synthesizer  von  Hausknecht  ko¬ 
stet  einschließlich  einem  aus¬ 
führlichen  Begleitbuch  249 
Mark.  Die  sehr  kleine  Platine 
wird  manuell  hergestellt.  Für 
Selbstbauer  sind  die  Platine  und 
der  Sprach-Chip  auch  einzeln 
erhältlich. 

(Gerhard  Pehland/hm) 

Info:  Speech  64.  Astech  Computer,  Am  Wall 
183,  2800 'Bremen,  Tel.  0421/324057 
Helmut  Hausknecht,  Kreuzstr.  10, 4270  Dor¬ 
sten 


Neue  Programmierhilfe 

Ein  neues  Programmierhilfe- 
modul  kommt  jetzt  aus  den  Nie¬ 
derlanden  auf  den  Markt.  Es 
nennt  sich  »The  Final  Cardridge« 
und  ist  als  sogenanntes  »Exker- 
nal«  aufgebaut.  Dadurch  ergibt 
sich  ein  effektiver  Speicher¬ 
platzgewinn  für  Basic-Program¬ 
me  von  20  KByte.  Laut  Herstel¬ 
lerangaben  soll  das  Modul  zu  99 
Prozent  der  C  64-Software  kom¬ 
patibel  sein. 

Im  Modul  integriert  sind  je  ein 
Turbolader  für  Kassette  und  Dis¬ 
kette,  eine  Centronics-Schnitt- 
stelle  und  ein  Maschinenspra¬ 
che-Monitor.  Ein  Reset-Taster  ist 
ebenfalls  vorhanden.  (ev) 

Info:  The  Final  Cardridge,  H&P  Computers, 
Wolphaertsbocht  236,  NLr3083  MV  Rotter¬ 
dam,  Preis:  190  Mark 
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Bild  2.  Unter  den  Besuchern  waren  viele  Schulklassen. 
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Chromdioxid 
für  Datasette? 

Mein  Computer-Händler 
sagt,  ich  solle  keine  Chromdi¬ 
oxid-Kassetten  für  meine  Data¬ 
sette  benutzen.  Ist  da  was  Wah¬ 
res  dran?  Michael  Splett 

Chromdioxid  erfordert  eine 
andere  Vormagnetisierung  als 
Eisenoxid.  Auf  lange  Sicht  ge¬ 
sehen  kann  die  Verwendung 
von  Chromdioxid-Kassetten  bei 
nicht  dafür  vorgesehenen  Re¬ 
cordern  auch  eine  geringere 
Lebensdauer  des  Tbnkopfes  zur 
Folge  haben. 

Wegen  der  niedrigen  Auf¬ 
zeichnungsrate  von  300  Baud  ist 
die  Verwendung  von  Chromdi¬ 
oxid  aber  auch  beim  besten  Wil¬ 
len  nicht  notwendig. 

C  64  mit 

Schneider-Monifoi? 

Kann  man  den  C  64  an  den 
Schneider-Farbmonitor  anschlie¬ 
ßen?  Alexander  Wolf 

Bei  dem  Farbmonitor  zum 
Schneider  CPC  464/664  handelt 
es  sich  um  einen  RGB-Monitor, 
das  heißt  es  sind  getrennte  Ein¬ 
gänge  für  die  drei  Grundfarben 
vorhanden.  Demgegenüber 
verfügt  der  C  64  nur  über  einen 
Composite-Video-Ausgang,  bei 
dem  alle  Farben  in  einem  einzi¬ 
gen  Mischsignal  zusammenge¬ 
faßt  sind.  Daher  ist  ein  Anschluß 

nicht  mit  vertretbarem  Aufwand 
zu  realisieren. 

Hilfe  gegen  Absturl? 

Bei  der  Zeichensatzverände¬ 
rung  stürzt  mein  C  64  in  einigen 
Fällen  nach  POKE  648,192  und 
löschen  des  Bildschirms  ret¬ 
tungslos  ab.  Wo  liegt  der  Fehler 
und  was  kann  ich  dagegen  tun? 

Peter  Scholz 


Doppelt  große  Zeichen 
auf  dem  C  64? 

Da  meine  Tochter  sehbehin¬ 
dert  ist  und  sie  die  normale  Zei¬ 
chendarstellung  auf  dem  C  64 
nur  schlecht  erkennen  kann,  su¬ 
che  ich  ein  Programm,  das  alle 
Zeichen  vergrößert  abbildet. 
Allerdings  sollte  man  damit 
auch  ganz  normal  programmie¬ 
ren  können.  Wer  kennt  ein  sol¬ 
ches  Programm  oder  kann  sonst 
auf  irgendeine  Art  und  Weise 
helfen?  Jochen  Dietsche 

Kabel-Geheimnis? 

Wozu  ist  das  nichtisolierte, 
aus  dem  Datasettenstecker  her¬ 
ausragende  Kabel  da? 

Heiko  Federhenn 

Bei  dem  Kabel  handelt  es  sich 
um  eine  Erdnngsleitung,  die  bei 
den  großen  CBM-Computern 
zur  Abschirmung  dient.  Der  C  64 
ist  durch  eine  über  der  gesam¬ 
ten  Platine  gelegten  Metallfolie 
aber  bereits  ausreichend  abge¬ 
schirmt,  so  daß  Sie  dieses  Kabel 
ohne  Gewissensbisse  direkt  am 
Stecker  abschneiden  können. 

Erfahrungen  mit 

Riteman  C+? 

Wer  kann  mir  über  Erfahrun¬ 
gen  vom  Betrieb  eines  Riteman 
C+  am  C  64  berichten? 

Michael  Neuhaus 

Wer  kennt  die 
C  16-Hardware? 

Welche  Unterschiede  beste¬ 
hen  zwischen  den  Expansion- 
Ports  des  C  64  und  des  C  16? 
Wie  lauten  die  entsprechenden 
Bezeichnungen  für  HROM,  GA¬ 
ME,  LROM  etc.  beim  C 16? 

Ingo  Mattes 


C  64  als  Btx-Tastatur? 

Kann  man  den  Commodore  64 
auch  als  Btx-Tastatur  benutzen? 

Jörg  Stalberg 

Sowohl  von  Commodore  als 
auch  von  Technofor  wird  es  bis 
Ende  dieses  Jahres  einen  Btx- 
Steckdecoder  für  den  C  64  ge¬ 
ben.  Beide  Module  sollen  unter 
700  Mark  kosten.  Mit  diesem  Sy¬ 
stem  ist  es  möglich,  jeden  han¬ 
delsüblichen  Fernseher  (oder 
Monitor)  zu  verwenden. 

Umlaute  und  deutsche 
Tastaturbelegung? 

Wie  bekomme  ich  deutsche 
Umlaute  beim  C  64  auf  Bild¬ 
schirm  und  Drucker?  Wie  kann 
die  Tastaturbelegung  beim  C 
64  so  geändert  werden,  daß  ei¬ 
ne  Normtastatur  wie  bei  einer 
Schreibmaschine  entsteht? 

Manfred  Jannasch 

Mehr  Sprites  im 
Basic-Speicher? 

Ich  möchte  wegen  schnelle¬ 
ren  Zugriffs  54  Sprites  im  Basic- 
Speicher  ablegen.  Welche 
Möglichkeiten  gibt  es  dazu, 
und  wie  muß  eventuell  der 
Basic-A  i  .  lg  oder  das  Basic- 
Ende  dazu  verschoben  werden? 

Wie  kann  man  Musik-Daten 
im  Maschinensprache-Bereich 
ab  Adresse  $C000  Zwischen¬ 
speichern?  Nicolai  Mokros 

Mogeleien  in 
»Logeleien«? 

Ihr  Autor  Heimo  Ponnath,  des¬ 
sen  Artikel  ich  übrigens  sehr 
schätze,  begeht  in  der  64 'er, 
Ausgabe  9/85  auf  Seite  115  mei¬ 
ner  Meinung  nach  einen  Fehler: 

Er  versucht,  dem  »Program- 
mers  Reference  Guide«  einen 
Irrtum  nachzuweisen  und  be¬ 
geht  dabei  selbst  einen.  Er 
kommt  nämlich  zu  dem  Schluß, 
daß  dem  »Reference  Guide«  zu¬ 
folge  der  Computer  nach 
»WAIT  1,32,32«  bis  in  alle  Ewig¬ 
keit  warten  müßte.  Dies  ist  aller¬ 
dings  auch  bei  seiner  Version 
der  Fall;  er  setzt  nämlich  das  Bit 
für  die  Zahl  32  falsch  (»0001 
0000 «  statt  richtig  »0010  0000«). 
Wenn  man  die  Zahl  32  richtig 
darstellt,  ergibt  sich  in  dem  ab¬ 
gedruckten  Beispiel  falls  keine 
Taste  gedrückt  ist: 

0011  0111  55 
0010  0000  32 

- EOR - 

0001  0111  23 
0010  0000  32 

- AND - 

0000  0000  0 

Ergebnis  Null,  der  Computer 
wartet. 


Falls  jedoch  eine  Datasetten- 
taste  gedrückt  wurde,  soll  der 
Inhalt  von  Speicherzelle  1 
gleich  39  sein.  Der  WAIT-Befehl 
bewirkt  dann  folgendes: 

0010  0111  39 
0010  0000  32 

- EOR - 

0000  0111  7 
0010  0000  32 

- AND - 

0000  0000  0 

Siehe  da  —  das  Ergebnis  ist 
ebenfalls  Null.  Der  Computer 
wartet  also  bis  in  alle  Ewigkeit. 

Werner  Neudeck 

Es  stimmt,  mit  den  angegebe¬ 
nen  Werten  würde  der  Compu¬ 
ter  tatsächlich  lange  warten  kön¬ 
nen.  Der  Fehler  liegt  in  der  An¬ 
gabe  der  Zahl  39  als  Inhalt  von 
Speicherzelle  1  bei  gedrückter 
Taste:  Es  ist  nämlich  PEEK(l)  =  7, 
sobald  eine  Taste  an  der  Data¬ 
sette  gedrückt  wird.  Der  Befehl 
»WAIT  1,32,32«  funktioniert  also 
tatsächlich,  denn  mit  der  Zahl  7 
als  Ausgangswert  ergibt  sich: 
0000  0111  7 
0010  0000  32 

- EOR - 

0010  0111  39 
0010  0000  32 

- -AND - 

0010  0000  32 

Damit  haben  wir  einen  Wert 
ungleich  Null  als  Ergebnis,  und 
der  WAIT-Befehl  wird  beendet. 
Übrigens  kann  man  leicht  nach¬ 
rechnen,  daß  die  Reihenfolge 
der  Operationen  EOR  und  AND 
keine  Rolle  für  das  Ergebnis 
spielt.  Die  Angaben  im  »Progra- 
mers  Reference  Guide«  sind  al¬ 
so  genauso  richtig  (wenn  man 
die  richtigen  Zahlen  einsetzt). 
Die  hier  angegebene  Reihenfol¬ 
ge  (erst  EOR,  dann  AND)  ent¬ 
spricht  aber  der  Reihenfolge,  in 
der  diese  Operationen  vom  Be¬ 
triebssystem  tatsächlich  durch¬ 
geführt  werden. 


Fragen  Sie  doch 

Selbst  bei  sorgfältiger  Lek¬ 
türe  von  Handbüchern  und 

Programmbeschreibungen 
bleiben  beim  Anwender  im¬ 
mer  wieder  Fragen  offen. 
Viel  mehr  Fragen  ergeben 
sich  bei  Computer-Interes¬ 
senten,  die  noch  keine  fe¬ 
sten  Kontakte  zu  Händlern, 
Herstellern  oder  Compu¬ 
terclubs  haben.  Sie  können 
der  Redaktion  Ihre  Fragen 
schreiben  oder  Probleme 
schüdem  (am  einfachsten 
auf  der  Karte  »Lesermei¬ 
nung«).  Wir  veranlassen,  daß 
sie  von  einem  Fachmann  be¬ 
antwortet  werden.  Allge¬ 
mein  interessierende  Fra¬ 
gen  und  Antworten  werden 
veröffentlicht,  die  übrigen 
brieflich  beantwortet. 
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HI-EDDI  und  1526? 

Nachdem  ich  schon  eine  Wei¬ 
le  mit  dem  tollen  Malprogramm 
HI-EDDI  aus  der  64’er-Ausgabe 
1/85  arbeite,  habe  ich  natürlich 
bei  Erscheinen  der  Druckerrou¬ 
tine  für  den  MPS  802  diese  so¬ 
gleich  ausprobiert.  Ich  besitze 
den  Drucker  1526  (Rev.  07).  Auf 
diesem  Drucker  läuft  die  Routi¬ 
ne  leider  nicht,  obwohl  der  1526 
und  der  MPS  802  doch  eigent¬ 
lich  keine  größeren  Unterschie¬ 
de  aufweisen.  Wer  kann  mir  sa¬ 
gen,  was  ich  an  der  MPS  802- 
Routine  ändern  muß? 

Heinz  Krieger 

Lange  Strings? 

Warum  darf  die  Länge  eines 
Strings  beim  Lesen  aus  einer  se¬ 
quentiellen  Datei  nicht  mehr  als 
88  Zeichen  betragen?  Hat  die 
RUN/STOP-Taste  einen  CHR$- 
Code? 

Jörn  Maarup,  Dänemark 

Der  INPUT-Befehl  kann  maxi¬ 
mal  88  Zeichen  lesen,  egal  ob 
von  der  Tastatur  oder  aus  einem 
sequentiellen  File.  Dies  liegt 
daran,  daß  INPUT  mit  einem  in¬ 
ternen  Datenpuffer  arbeitet,  der 
eben  nur  88  Byte  lang  ist.  Sollen 
Strings  mit  mehr  als  88  Zeichen 
aus  einem  sequentiellen  File  ge¬ 
lesen  werden,  so  muß  man  Zei¬ 
chen  für  Zeichen  mit  GET#  ein¬ 
iesen  und  daraus  den  String  auf¬ 
bauen. 

Die  RUN/STOP-Taste  hat  in 
der  Tat  einen  CHR$-Code,  näm¬ 
lich  3  ohne  Shift  (»STOP«)  und  131 
mit  Shift  (»RUN«),  Allerdings  hat 
die  Sache  einen  Haken:  Ein 
Druck  auf  die  STOP-Taste  be¬ 
wirkt  normalerweise  den  Ab¬ 
bruch  des  laufenden  Pro¬ 
gramms.  Um  das  zu  vermeiden, 
muß  die  Abbruch-Funktion  der 
STOP-Taste  mit  »POKE  808,255« 
abgeschaltet  werden.  Vorsicht! 
Ein  laufendes  Programm  kann 
nach  diesem  POKE  nicht  mehr 
abgebrochen  werden.  »POKE 
808,237«  reaktiviert  die  STOP- 
Taste  wieder. 


VC  20-Kenner? 

Besitzt  der  VC  20  eingebaute 

Maschinensprache-Routinen 
für  Multiplikation  und  Division? 
Wenn  ja,  welche  Einsprung¬ 
adressen  haben  diese  Routinen 
und  wie  werden  die  Daten  über¬ 
geben?  Manfred  Kieme nz 

Turbo-Lader  eingebaut? 

Wie  muß  das  Betriebssystem- 
ROM  beim  C  64  verändert  wer¬ 
den,  um  ein  Turbo-Tape-Pro- 
gramm  fest  zu  integrieren?  Wel¬ 
che  Adressen  bestimmen  die 
Baudra te?  Bernd-Dieter  Bern t 


»Haushaltsbuch« 
mit  WPS  801? 

Ich  habe  das  »Haushaltsbuch« 
aus  der  Ausgabe  7/85  abge¬ 
tippt.  Leider  sind  die  Drucker¬ 
routinen  für  Epson-Drucker  ge¬ 
schrieben.  Wer  hat  das  Pro¬ 
gramm  für  den  MPS  801  umge¬ 
schrieben? 

Dirk  Zwartenbol,  Niederlande 

Daten  weg  bei 
»Superbase«? 

Beim  Arbeiten  mit  Superbase 
erhalte  ich  den  Fehlerhinweis 
» Data  Mismatch«,  wenn  ich  in  ei¬ 
ner  Datei  mit  erlaubten  doppel¬ 
ten  Schlüsselfeldem  einen 
mehrmals  vorhandenen,  völlig 
identischen  Datensatz  gelöscht 
habe  und  danach  mit  »Select« 
über  den  gelöschten  Datensatz 
blättern  will. 

Die  gemäß  Handbuch  zur 
Fehlerbehebung  notwendige 
Maßnahme  mit  »Export«  bringt 
mir  ebenfalls  den  Hinweis  »Data 
Mismatch«.  Ebenso  das  Hand¬ 
ling  mit  »Sort«. 

Was  habe  ich  falsch  gemacht 
beziehungsweise  wie  kann  ich 
die  bestehende  Datei  retten? 

Hans-Winfried  Finger 

Kunwelle  und  C  64? 

Vor  längerer  Zeit  hörte  ich, 
daß  eine  Möglichkeit  besteht, 
die  Übermittlungen  von  Nach¬ 
richtenagenturen  mittels  eines 
KW-Empfängers  aufzufangen 
und  an  den  C  64  weiterzuleiten, 
sie  dort  zu  verarbeiten  und  auf 
dem  Monitor  oder  Drucker  aus¬ 
zugeben. 

Wer  kennt  sich  mit  diesem 
Problem  aus?  Welche  postali¬ 
schen  oder  andere  Vorschriften 
sind  dabei  zu  beachten?  Wer 
bietet  entsprechende  Hard- 
oder  Software  an? 

Holger  Jöhnck 

Programme  nachladen? 

Wenn  ein  Basic-Programm  ein 
anderes  nachlädt,  dann  ent¬ 
steht  ein  heilloses  Durcheinan¬ 
der.  Wie  kann  das  kommen? 
Ausgabe  9/85 

Norbert  Burghart 

Beim  Nachladen  von  Program¬ 
men  innerhalb  eines  anderen 
Programms  werden  die  Zeiger, 
die  auf  das  Programmende  zei¬ 
gen,  nicht  ordnungsgemäß 
nachgestellt.  Falls  das  nachge¬ 
ladene  Programm  länger  ist  als 
das  erste  Programm,  dann  kann 
es  Probleme  geben.  Werden 
nämlich  Variablen  definiert, 
dann  'Iberschreiben  sie  das  Pro¬ 
gramm.  Es  gibt  nun  zwei  Mög¬ 
lichkeiten,  dies  zu  verhindern: 

1.  Man  lädt  das  Programm  im 
Direktmodus.  Dazu  wird  einfach 


eine  Eingabe  simuliert.  Das  geht 
folgendermaßen: 

10  PRINT  "  (CLR.3DOWN, 

4SPACE)”  ;  CHR$(34);  ”  NAME" 

;  CHR$(34);  "  ,8” 

20  PRINT  "  [HOME]" 

30  POKE  631,131  :  POKE  198,1 

Zeile  30  simuliert  die  Eingabe 
der  Tastenkombination  SHIFT- 
RUN/STOP.  Um  zu  vermeiden, 
daß  man  den  Text  auf  dem  Bild¬ 
schirm  lesen  kann,  muß  nur  die 
gleiche  Farbe  für  Schrift  und 
Hintergrund  gewählt  werden: 

5  POKE  646, PEEK (53281) 

2.  Laden  vom  laufenden  Pro¬ 
gramm  aus  mit  Neusetzen  der 
Zeiger.  Die  Zero-Page-Adressen 
174  und  175  werden  beim  Laden 
eines  Programms  vom  Betriebs¬ 
system  benutzt  und  enthalten 
nach  dem  Laden  die  Endadres¬ 
se  des  Programms.  Wichtig  für 
den  Basic-Interpreter  sind  aber 
die  Adressen  45,46.  Sie  zeigen 
ebenfalls  auf  das  Programmen¬ 
de  und  auf  den  Start  der  Varia 
bien.  Am  Anfang  des  nachgela¬ 
denen  Programms  sollte  also 
stehen: 

0  POKE  45,  PEEK (174)  :  POKE  46, 
PEEK (175)  :  CLR 

Durch  CLR  werden  zwar  lei¬ 
der  alle  Variablen  gelöscht,  es 
ist  aber  dennoch  wichtig,  denn 
es  werden  dadurch  noch  einige 
andere  Zeiger  korrigiert. 

Michael  Siepmann 


Gibt  es  für  den  C  16  einen 
Sprach-Syn  thesizer? 

Roland  Weilguny 


Compiler-Test  »Basic  64« 

Beim  Lesen  Ihres  Testberichts 
des  Basic  64-Compilers  von  Da¬ 
ta  Becker  konnte  ich  mich  des 
Gefühls  nicht  erwehren,  daß 
der  verantwortliche  Tester  wohl 
selbst  ein  schlechtes  Gewissen 
hatte,  als  er  dem  Chefredakteur 
seine  Druckfahne  zur  Begutach¬ 
tung  vorlegte.  Wenn  ich  natür¬ 
lich  einen  mittelmäßigen  Klein¬ 
wagen  mit  einem  miserablen 
Kleinwagen  vergleiche,  dann 
kenne  ich  das  Ergebnis  von  vor¬ 
nherein.  Der  BASS-Compiler 
ist  nun  mal  eine  lahme  Krücke! 
In  diesem  Falle  wurde  (hoffent¬ 
lich  unwissentlich)  der  Ver¬ 
gleich  mit  anderen,  leistungsfä¬ 
higeren  Programmen  versäumt. 
Dieser  Artikel,  sowie  einige 
ähnliche,  hätten  wohl  besser  in 
der  Rubrik  »Werbung  und  An¬ 
zeigen«  gestanden. 

Bernd  Vollert 

»Basic  64«  wurde  in  dem  Test¬ 
bericht  mit  vier  weiteren  Compi¬ 
lern  verglichen  (Petspeed, 
Austro-Speed,  BASS,  Exbasic- 
Level-II-Compiler). 


Wollen  Sie  antworten? 

Wir  veröffentlichen  auf 
dieser  Seite  auch  Fragen,  die 
sich  nicht  ohne  weiteres  an¬ 
hand  eines  guten  Archivs 
oder  aufgrund  der  Sachkun¬ 
de  eines  Herstellers  bezie¬ 
hungsweise  Programmie¬ 
rers  beantworten  lassen.  Das 
ist  vor  allem  der  Fall,  wenn  es 
um  bestimmte  Erfahrungen 
geht  oder  um  die  Suche  nach 
speziellen  Programmen. 
Wenn  Sie  eine  Antwort  auf 
eine  hier  veröffentlichte  Fra¬ 
ge  wissen  —  oder  eine  ande¬ 
re,  bessere  Antwort  als  die 
hier  gelesene,  dann  schrei¬ 
ben  Sie  uns.  Antworten  publi¬ 
zieren  wir  in  einer  der  näch¬ 
sten  Ausgaben.  Bei  Bedarf 
stellen  wir  auch  den  Kontakt 
zwischen  Lesern  her. 


»Fenster«-Befehl  für 
den  C  16  erweitert 

Ich  habe  das  Programm  »Fen¬ 
ster-Befehl«  für  den  C  16  so  er¬ 
weitert,  daß  bei  Anlegen  eines 
neuen  Fensters  der  alte  Bild¬ 
schirminhalt  zwischengespei¬ 
chert  wird.  Durch  einen  speziel¬ 
len  Befehl  können  Bildschirm¬ 
fenster  jetzt  auch  gelöscht  wer¬ 
den,  wobei  automatisch  der  bis¬ 
her  verdeckte  Bildschirmteil  mit 
seinem  ursprünglichen  Inhalt 
sichtbar  wird.  Bis  zu  acht  Fen¬ 
ster,  die  sich  auch  überlappen 
dürfen,  können  gleichzeitig  dar¬ 
gestellt  werden.  Wer  also  ein 
bißchen  »Mclntosh-Feeling«  auf 
seinem  C  16  haben  möchte,  dem 
schicke  ich  das  Programm  für  ei¬ 
nen  Unkostenbeitrag  von  10 
Mark  gerne  auf  Kassette  zu. 

Thomas  Tieke 

Textverarbeitung  mit 
Formeln? 

Ich  suche  ein  Textprogramm, 
mit  dem  ich  mathematische 
Sonderzeichen  und  hoch-Ztief- 
gestellte  Indizes  auf  dem  Sei- 
kosha  GP-550  ausgeben  kann. 
Ausgabe  8/85 

Johann  Bierschneider 

Beim  Textverarbeitungspro¬ 
gramm  »Textomat«  von  Data 
Becker  besteht  wie  bei  den  mei¬ 
sten  Textprogrammen  die  Mög¬ 
lichkeit,  eine  Druckeranpas¬ 
sung  vorzunehmen.  In  der  Steu- 
erzeichentabelle  sind  die  Zei¬ 
chen  0  bis  9  frei  definierbar. 

Man  braucht  dort  also  nur  in 
hexadezimaler  Schreibweise 
die  gewünschten  Drucker- 
Steuercodes  einzutragen,  die 
man  im  Drucker-Handbuch 

nachschlägt. 

Florian  Burgstahler 


Sprach-Synthesizer 
für  C  16? 
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Leserforum 


Leser  fragen  — 

Willi  Brechtl  antwortet 

Hallo  liebe  Leser,  hier  bin  ich  wieder, 
um  Eure  Fragen  zu  beantworten. 


Ich  werde  mich  hauptsächlich 
um  Leserbriefe  kümmern,  die 
nicht  in  das  sachliche  Einerlei 
des  Leserforums  passen.  Zum 
Beispiel  Fragen,  die  sich  aus 
dem  einen  oder  anderen  Grund 
nur  ganz  subjektiv  beantworten 
lassen.  Oft  genug  tauchen  auch 
Probleme  auf,  die  sich  nicht  mit 
einem  kurzen  Antwortsatz  ab¬ 
handeln  lassen.  Und  wenn 


selbst  eine  längere  Antwort  im 
Rahmen  des  Leserforums  nicht 
mehr  ausreichen  würde,  dann 
ist  das  ganz  klar  ein  Fall  für  Willi 
Brechtl. 

Also:  Wenn  Sie  als  Anfänger 
Probleme  mit  Computer,  Soft¬ 
ware  oder  Handbuch  haben, 
dann  wenden  Sie  sich  in  Zukunft 
doch  einfach  vertrauensvoll  di¬ 
rekt  an  mich. 


INPUT  mit  Komma? 

Wie  kann  man  mit  INPUT 
Komma,  Semikolon  und  Dop¬ 
pelpunkt  einiesen? 

Wie  kann  man  diese  Zeichen 
in  eine  sequentielle  Datei 
schreiben?  Ulrich  Mayrhofer 

Um  mit  dem  INPUT-Befehl 
ganze  Eingabezeilen  mit  Komma 
und  anderen  Sonderzeichen 
einiesen  zu  können,  gibt  es  nur 
die  Möglichkeit,  die  Eingabe  mit 
einem  Anführungszeichen  zu 
beginnen.  Mit  einem  kleinen 
Trick  kann  man  das  Anführungs¬ 
zeichen  auch  automatisch  als  er¬ 
stes  Zeichen  erscheinen  lassen. 
Man  schreibt  ein  Anführungs¬ 
zeichen  (CHR$(34))  in  den  Tasta¬ 
turpuffer,  der  an  Adresse  631  be¬ 
ginnt:  »POKE  631,34«. 

Dann  sagt  man  dem  C  64  mit 
»POKE  198,1«,  daß  eine  Taste  ge¬ 
drückt  wurde.  Bei  einem  an¬ 
schließenden  INPUT  wird  jetzt 
als  erstes  ein  Anführungszei¬ 
chen  ausgegeben,  danach  kann 
ein  beliebiger  Text  folgen,  der 
auch  Komma,  Doppelpunkt 
oder  Semikolon  enthalten  darf. 

Bei  sequentiellen  Dateien 
geht  man  im  Prinzip  genauso 
vor.  Setzen  Sie  den  Text,  den  Sie 
in  eine  sequentielle  Datei 
schreiben  wollen,  einfach  in  An¬ 
führungszeichen.  Beim  anschlie¬ 
ßenden  Lesen  mit  INPUT  #  wird 
dann  der  gesamte  Text  ein¬ 
schließlich  Sonderzeichen,  al¬ 
lerdings  ohne  Anführungszei¬ 
chen,  wieder  von  Diskette  gele¬ 
sen.  Hier  ein  Beispielprogramm, 
das  eine  komplette  Eingabezei¬ 
le  von  der  Tastatur  holt,  die  Zeüe 
in  eine  sequentielle  Datei 
schreibt  und  anschließend  wie¬ 
der  liest: 

10  OPEN  1,8,8,”  TEST,S,W” 

20  POKE  631,34  :  POKE  198,1 
30  INPUT  A§ 

40  PRINT#  1,CHR$( 34 )+ASf 
CHR$(34) 

50  CLOSE  1 

16  SfcSa? 


60  PRINT  "  JETZT  LESEN..." 

70  OPEN  1,8,8,"  TEST,S,R" 

80  INPUT  #1,A$  :  PRINT  A$ 

90  CLOSE  1 

Wer  sich  an  dem  Anführungs¬ 
zeichen  zu  Beginn  jeder  Einga¬ 
be  stört,  der  kann  noch  etwas 
trickreicher  Vorgehen:  Man 
kann  nämlich  nicht  nur  ein  An¬ 
führungszeichen  in  den  Tasta¬ 
turpuffer  POKEn,  sondern  zu¬ 
sätzlich  auch  die  Codes  für  das 
Setzen  der  Zeichenfarbe.  Wenn 
man  dann  zuerst  die  Zeichenfar¬ 
be  auf  Hintergrundfarbe  setzt, 
anschließend  das  Anführungs¬ 
zeichen  ausgibt  und  schließlich 
wieder  die  normale  Schreibfar¬ 
be  emsteilt,  dann  ist  das  Anfüh¬ 
rungszeichen  unsichtbar,  tut 
aber  gleichwohl  seine  Wirkung. 
Sei  beispielsweise  die  Hinter¬ 
grundfarbe  Blau  und  die  Zei¬ 
chenfarbe  Weiß.  Ein  Blick  in  die 
ASCII-Code-Tabelle  im  Hand¬ 
buch  ergibt  die  Codes  31  für 
Blau  und  5  für  Weiß.  Für  ein  un¬ 
sichtbares  Anführungszeichen 
ersetzt  man  also  im  obigen  Bei¬ 
spiel  die  Zeile  20  durch: 

20  POKE  631,31  :  REM  BLAU 

21  POKE  632,34  :  REM 

ANFUEHRUNG 

22  POKE  633,5  :  REM  WEISS 

23  POKE  198,3  :  REM  3  TASTEN 

So  erreicht  man  eine  doch 

recht  brauchbare  Eingaberouti¬ 
ne,  ohne  ein  spezielles  Maschi¬ 
nenprogramm  zur  Erweiterung 
des  INPUT-Befehls  schreiben  zu 
müssen. 

Welche  Software 
ist  gefragt? 

Die  im  64'er-Magazin  abge¬ 
druckte  Programmfülle  ist  qua¬ 
litativ  so  gut  und  so  verschie¬ 
den,  daß  fast  jede  Programmart 
(Textverarbeitung,  Sprite-Edi- 
tor,  Vokabelprogramm  etc.) 
schon  abgedruckt  wurde.  Ich 
habe  leider  die  Erfahrung  ma¬ 


chen  müssen,  daß  kurz  bevor 
mein  Sprite-Maker  fertigge¬ 
stellt  wurde,  ein  leistungsstar¬ 
ker  Sprite-Editor  im  64’er- 
Magazin  abgedruckt  wurde. 
War  meine  Arbeit  also  um¬ 
sonst?  Auch  wenn  mein  Sprite- 
Maker  einige  Funktionen  mehr 
besitzt  als  der  abgedruckte? 
Lohnt  es  sich  überhaupt,  ein 
Programm  zu  einem  Thema  ein¬ 
zuschicken,  für  das  bereits  ein¬ 
mal  ein  Listing  veröffentlicht 
worden  ist? 

Speziell  würde  mich  interes¬ 
sieren,  nach  welchen  Kriterien 
Programme  ausgewählt  wer¬ 
den. 

Werden  Programme,  die 
zwecks  Schnelligkeit  mit 
Maschinensprache-Routinen  ar¬ 
beiten,  den  langsameren  reinen 
Basic-Programmen  vorgezo¬ 
gen? 

Stefan  Seidenberg 

Bei  der  Auswahl  von  Program¬ 
men  für  eine  Veröffentlichung 
gibt  es  im  wesentlichen  folgen¬ 
de  Kriterien: 

—  Qualität  der  Problemlösung. 
Eine  Dateiverwaltung  beispiels¬ 
weise,  bei  der  man  die  Eingabe¬ 
maske  mit  den  Cursortasten  aus 
dem  Bildschirm  herausscrollen 
kann,  ist  sicher  nicht  das  Opti¬ 
mum. 

—  Qualität  der  Programmbe¬ 
schreibung.  Wenn  der  zuständi¬ 
ge  Tr-  akteur  die  gesamte  Be¬ 
schreibung  wegen  gravieren¬ 
der  sprachlicher  oder  sachli¬ 
cher  Mängel  neu  verfassen 
muß,  fördert  das  nicht  gerade 
seine  Bereitschaft,  das  Listing 
abzudrucken. 

—  Qualität  der  Idee.  Programme 
zu  neuen,  noch  nicht  behandel¬ 
ten  Themen  von  allgemeinem  In¬ 
teresse  oder  neuartigen  Ideen 
zur  Lösung  bekannter  Probleme 
sind  interessanter,  als  die  570ste 
Version  eines  Sprite-Genera- 
tors. 

—  Generell  gilt:  Qualität  geht  vor 
Quantität.  Es  haben  nicht  beson¬ 
ders  lange  Listings  die  Chance, 
abgedruckt  zu  werden,  sondern 
besonders  gute  Listings.  Bei 
gleicher  Leistung  werden  schon 
aus  Platzgriinden  kürzere  Pro¬ 
gramme  vorgezogen.  Und  wenn 
die  Geschwindigkeit  eines  Pro¬ 
gramms  ein  wichtiges  Kriterium 
ist,  ist  eine  entsprechende  Ma¬ 
schinenroutine  sicherlich  sinn¬ 
voll. 

Was  Ihr  spezielles  Problem 
anbelangt,  so  haben  Program¬ 
me  zu  bestimmten  Themen,  die 
wir  bereits  veröffentlicht  haben, 
nur  dann  eine  Chance,  wenn  sie 
in  mehr  als  zwei  oder  drei  Punk¬ 
ten  besser  sind  als  der  »Vorgän¬ 
ger«.  Das  wül  heißen,  Program¬ 
me  zu  ein  und  demselben  The¬ 
ma  haben  nach  wie  vor  Chancen 
veröffentlicht  zu  werden,  nur  sie 
müssen  sich  an  den  bereits  er¬ 
schienenen  Programmen  mes¬ 
sen  lassen. 


VC  20-Hilferuf 

Eigentlich  bin  ich  (vielleicht 
zu  Unrecht)  etwas  enttäuscht 
vom  64’er-Magazin.  Steht  doch 
da  auf  der  Titelseite  der  Ausga¬ 
be  8  »Tips  &  Tricks  für  C  64,  VC 
20,  C  16«,  so  findet  man  beim 
Durchblättem  nur  einen  einzi¬ 
gen  Artikel  zum  VC  20.  Meinen 
Sie  nicht  auch,  daß  einer  der 
meistverkauften  Rechner  etwas 
mehr  Beachtung  verdient? 

Wurden  früher  wenigstens 
noch  C  64-Maschinenprogram- 
me  als  Assembler-Listings  oder 
in  disassemblierter  Form  abge¬ 
druckt,  muß  ein  VC  20-Freund 
sich  heutzutage  durch  DATAs 
und  MSE-Codes  wühlen,  um  am 
Ende  jeglichen  Überblick  zu 
verlieren  und  damit  auch  die 
Hoffnung,  ein  solches  Pro¬ 
gramm  auf  dem  VC  20  zum  Lau¬ 
fen  zu  bekommen. 

Könnten  die  Programmauto¬ 
ren  ihre  Listings  nicht  besser 
dokumentieren  und  die  Kniffe 
offenlegen,  die  sie  program¬ 
miert  haben?  Der  Dank  der  VC 
20er-Schar  würde  ihnen  gewiß 
ewig  nachschleichen. 

Im  übrigen  würde  es  mich 
sehr  freuen,  wenn  Ihre  Zeit¬ 
schrift  in  Zukunft  diese  Art  der 
Diskriminierung  des  VC  20  un¬ 
terlassen  würde. 

Michael  Weblau 

Der  VC  20  wird  inzwischen  seit 
einem  Jahr  nicht  mehr  gebaut, 
und  entsprechend  gering  ist  das 
allgemeine  Interesse  der  Leser¬ 
schaft  an  diesem  Computer  ge¬ 
worden.  Ein  Vorschlag  zur  Ver¬ 
söhnung  der  VC  20-Fans:  Wer 
em  C  64-Programm  aus  dem 
64’er-Magazin  für  den  VC  20  um¬ 
geschrieben  hat  und  bereit  ist, 
es  ohne  kommerzielle  Interes¬ 
sen  an  andere  VC  20-Besitzer 
weiterzugeben,  der  möge  dies 
bitte  der  Redaktion  mitteilen. 
Gleiches  gilt  auch  für  C16/C116 
und  Plus/4-Besitzer. 

Wir  werden  Angebote  von  all¬ 
gemeinem  Interesse  im  Leserfo¬ 
rum  veröffentlichen.  Dazu  benö¬ 
tigen  wir  allerdings  eine  schrift¬ 
liche  Erklärung,  daß  Sie  mit  der 
Weitergabe  und  Veröffentli¬ 
chung  Ihrer  Anschrift  einver¬ 
standen  sind. 

Ein  Wort  noch  zu  den  Assem¬ 
bler-Listings:  Es  gibt  selbstver¬ 
ständlich  eine  ganze  Reihe  Le¬ 
ser,  die  am  liebsten  zu  jedem 
MSE-Listing  auch  gleich  den  do¬ 
kumentierten  Quelltext  sehen 
möchten.  Das  ist  leider  nicht  im¬ 
mer  möglich  und  zwar  haupt¬ 
sächlich  aus  zwei  Gründen:  er¬ 
stens  verbraucht  der  Quelltext 
sagenhaft  viel  Platz  (der  SMON 
zum  Beispiel  würde  als  Quelltext 
mehr  als  200  Blöcke  =  etwa  50 
KByte  verbrauchen  und  das  oh¬ 
ne  Kommentare!)  und  zweitens 
werden  längere  Programme 
sehr  selten  von  den  Autoren  im 
Quelltext  selber  dokumentiert. 

Ausgabe  11  /November.,  }R8Se,  de 
64er-online.net 
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Joysticks 


C  64/VC  20 


Joysticks 

Seit  Beginn  de.  Heimcomputer-Ära  begleiten 
Joysticks  den  Computer.  Wir  haben  die  neuesten 
und  bekanntesten  für  Sie  in  einer  Marktübersicht 
zusammengestellt. 


Dort,  wo  beim  Auto  das  Lenkrad 
ist,  hat  der  Computer  einen  Joy- 
stick.  Als  Schnittstelle  zu  Spie¬ 
len  und  Grafikprogrammen  haben 
sie  sich  still  und  leise  in  die  Haushal¬ 
te  geschmuggelt. 

Joysticks  sind  das  Lebenselixier 
aller  Spiele.  Spätestens  beim  ersten 
»plug  Joystick  into  port  2«  wird  der 
Computer-Neuling  merken,  worauf 
er  sich  beim  Kauf  seines  C  64  einge¬ 
lassen  hat:  Es  gibt  da  auf  der  rech¬ 
ten  Seite  zwei  neunpolige  Buchsen, 
die  schrecklich  leer  aussehen;  oder 
haben  Sie  Ihren  Joystick  aufgrund 
ständigen  Gebrauchs  bereits  aufge¬ 
arbeitet?  In  beiden  Fällen  muß  dann 
wohl  ein  Neuer  her.  Aber  halt  —  be¬ 
vor  Sie  dem  Redeschwall  des  Ver¬ 
käufers  erliegen,  oder  an  den  enor¬ 
men  Auswahlmöglichkeiten  ver¬ 
zweifeln,  sollten  Sie  sich  im  Klaren 
darüber  sein,  welcher  Steuerknüp¬ 
pel  Ihren  Anforderungen  gerecht 
werden  könnte.  Obengenannter 
Verkäufer  kann  Sie  dann  viel  besser 
beraten,  und  bestimmt  läßt  er  Sie  Ih¬ 
ren  Wunsch-Joystick  auch  einmal 
ausprobieren.  Schließlich  ist  es  ja 
auch  eine  Preisfrage.  Und  um  Ihnen 
hier  beratend  zur  Seite  zu  stehen, 
haben  wir  eine  Marktübersicht  (Bild 
1)  mit  den  wichtigsten  Punkten  erar¬ 
beitet. 

Das  Funktionsprinzip 

Vom  Computer  aus  betrachtet  be¬ 
steht  ein  Joystick  aus  fünf  Schaltkon¬ 
takten  (vier  Richtungen  und  der  Feu¬ 
erknopf),  die  sich  im  Ruhezustand  so 
verhalten,  als  wären  sie  gar  nicht 
vorhanden:  Die  Eingangsleitung 
führt  Hi-Potential,  das  sie  über  einen 
Widerstand  gegen  Versorgungs¬ 
spannung  erhält.  Bewegt  man  den 
Hebel  des  Joysticks  m  eine  Rich¬ 
tung,  wird  einer  der  Schalter  gegen 
Masse  kurzgeschlossen.  Der  Com¬ 
puter  registriert  an  seinem  Eingang 
(beim  C  64  der  CIA  1)  diesen  Kurz¬ 
schluß  und  reagiert  entsprechend 
seiner  Programmierung  darauf.  Für 
uns  ist  es  wichtig  zu  wissen,  wie  die¬ 
se  Schalter  aufgebaut  sind,  denn  sie 
sind  mit  entscheidend  für  die  Ge¬ 
nauigkeit  und  die  Haltbarkeit  des 
Joysticks.  Am  besten  bewährt  haben 
sich  hier  Mikroschalter  und  Metall¬ 
zungenkontakte  Eine  zukunftsträch¬ 
tige  Neuentwicklung  sind  Kugel¬ 
schalter,  deren  Aufbau  einen  sehr 
robusten  Eindruck  macht:  In  Verlän¬ 
gerung  des  Griffstückes  befindet 
sich  eine  massive  Stahlkugel,  die 
beim  Bewegen  des  Joysticks  gegen 
eine  von  vier  Metallwänden  ge¬ 
drückt  wird.  Man  kann  sich  das  wie 
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den  Klöppel  einer  Glocke  vorstellen 
(Bild  2).  Eine  ganz  andere  Konstruk¬ 
tion  stellen  die  Quecksilberschalter 
dar,  wobei  die  Bezeichnung  »Schal¬ 
ter«  eigentlich  falsch  ist.  In  deren  In¬ 
neren  befinden  sich  vier  nicht  ganz 
waagerecht  angeordnete  Röhr¬ 
chen.  Sie  enthalten  jeweils  zwei  Kon¬ 
takte,  die  beim  Bewegen  des  Joy¬ 
sticks  durch  einen  Quecksilbertrop¬ 
fen  verbunden  werden. 

Ebenfalls  neu  ist,  daß  die  Steuer¬ 
befehle  einiger  Joysticks  über  Infra¬ 
rotfernbedienung  statt  durchs  Ka¬ 
bel  übertragen  werden.  Dieses  Sy¬ 
stem  konnte  allerdings  noch  nicht  so 
recht  überzeugen.  Gegenlichtemp¬ 
findlichkeit  und  Unsicherheit  in  der 
Bedienung  (aus  größerer  Entfer¬ 
nung  muß  man  schon  ganz  schön  auf 
das  Empfangsgerät  zielen),  machen 
sie  einem  guten,  verkabelten  Joy¬ 
stick  noch  nicht  ebenbürtig.  Etwas 
älter,  aber  eine  wesentliche  Erleich¬ 
terung  ist  das  automatische  Dauer¬ 
feuer.  Wer  sich  bei  schnellen 
Schießspielen  keine  müden  Finger 


holen  will,  wird  auf  diesen  Zusatz 
nicht  verzichten  wollen.  Darüber 
hinaus  ist  auf  den  meisten  Joysticks 
mehr  als  ein  Feuerknopf  zu  finden  — 
zum  einen,  um  den  Joystick  Links¬ 
händern  zugänglich  zu  machen, 
aber  auch  um  den  »Schnellfeuerfin¬ 
ger«  wechseln  zu  können.  Ebenso 
wichtig  ist  für  den  Anwender,  daß 
der  Joystick  sicher  steht.  Das  kann 
entweder  durch  Saugnapfe,  oder 
durch  Gummifüße  erreicht  werden. 
Hier  läßt  sich  die  geschickteste  Lö¬ 
sung  für  den  Einzelfall  nicht  ange¬ 
ben.  Da  hilft  nur  Ausprobieren  beim 
Händler. 

Die  Marktübersicht  beruht  auf 
Angaben  der  Hersteller  oder  An¬ 
bieter  und  erhebt  keinen  Anspruch 
auf  Vollständigkeit.  Die  meisten  Joy¬ 
sticks  sind  neben  den  aufgeführten 
Adressen  auch  im  Fachhandel  und 
in  Kaufhäusern  erhältlich.  Bei  den 
Preisen  handelt  es  sich  um  Durch¬ 
schnittswerte.  Ein  Preisvergleich  vor 
dem  Kauf  lohnt  sich  also  in  jedem 
Faü. 
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Die  Gegenüberstellung 

Aus  der  Vielfalt  aller  möglichen 
Joysticks  haben  wir  die  sieben  meist 
verkauften  und  weithin  bekannte¬ 
sten  »Knüppel«  herausgesucht.  Ihre 
Fähigkeiten  mußten  sie  anhand  von 
drei  Spielen  und  einem  Zeichenpro¬ 
gramm  unter  Beweis  stellen. 

Summer  Games,  wurde  zum  Test 
der  Belastbarkeit  und  Bruchfestig¬ 
keit  des  Joysticks  herangezogen.  Ei¬ 
ne  Aussage  über  die  Bewegungs¬ 
und  Richtungsgenauigkeit  brachten 
die  anderen  beiden  Spiele  und  ein 
Grafikprogramm:  Impossible  Mis¬ 
sion,  Dropzone  und  HI-EDDI.  Ein 
Grafikprogramm  zeigt  am  besten, 
wie  weit  man  den  Joystick  bewegen 


exakt  handhaben.  Auffällig  ist  das 
durch  den  Kugelschalter  vermittelte 
Schaltgefühl.  Der  Kontakt  wird  im 
Moment  des  Endanschlags  ausge¬ 
löst.  Dazu  kommt  ein  sehr  kurzer 
Schaltweg.  Der  TAC  2  ist  sehr  stabil 
und  kompakt.  Der  Griff  ist  sehr  kurz 
gehalten,  was  jedoch  nicht  unbe¬ 
dingt  ein  Nachteil  sein  muß. 

Cobra:  Zum  Fliegen  geschaffen 
Der  Cobra  sieht  aus  wie  der  Steu¬ 
erknüppel  eines  Flugzeugs.  Er  ist 
deswegen  besonders  für  solche 
Spiele  hervorragend  geeignet,  bei 
denen  ein  Flugzeug  oder  ähnliches 
zu  steuern  ist.  Sein  hohes  Gewicht  in 
Verbindung  mit  den  Saugnäpfen,  er¬ 
weckt  das  Gefühl,  als  sei  er  mit  dem 
Tisch  verwachsen.  Beim  Test  nah- 


Anbieter 

A 

Ariolasoft,  089/4  136313 

B 

Cetec,  040/2801045 

C 

Cimring,  06173/62027 

D 

Commodore,  069/66382 11 

E 

Computerland,  07  11/2944  18 

F 

Compy-Shop.  0  20/8  49  71 69 

G 

Conrad.  089/592128 

H 

Cosinus  Computersysteme. 

02521/1 240S 

1 

Dynamics.  040/3661 47 

K 

FunTastic,  089/939894 

L 

Füssener  Computersysteme, 

05971/50218 

M 

haku,  02 11/328555 

N 

Harmann,  071 31/4800 

O 

J.  Schumpich.  089/6065074 

P 

Jöllenbeck.  04287/6910 

0 

Lindy,  0621/26851 

R 

Mükra,  030/7529150 

S 

Philips.  040/32971 

T 

Tober.  05161/3897 

U 

Rushware.  02101/68499 

V 

Sanyo,  089/416040 

w 

Sony.  0221/59661 

Einer  von  zwei  Feuerknöpfen. 
Veischleißfreier  Kontakt  durch 
einen  Metallring 


Zwischen  diese 
Wände  gehört  die 
Kugel  im  geschlos¬ 
senen  Zustand 


Bild  2.  Die  Mechanik  des  TAC  2. 


muß,  um  eine  Funktion  auszulösen. 
Die  Leistungskriterien  waren 
Leichtgängigkeit,  Stabilität  und 
Richtungsgenauigkeit.  Ebenfalls 
berücksichtigt  wurde  die  Standfe¬ 
stigkeit  und  der  Reaktionsweg. 
Competition  Pro  -  ungeschlagen 
Dank  der  soliden  Bauweise,  ist 
der  Competition  Pro  für  jeden  Ein¬ 
satz  empfehlenswert.  Durch  die  Ver¬ 
wendung  von  Mikroschaltern  ver¬ 
mittelt  der  Competition  Pro  ein  exak¬ 
tes  Schaltgefühl.  Auch  versprechen 
die  Mikroschalter  eine  lange  Le¬ 
bensdauer.  Selbst  nach  häufigem 
Gebrauch  zeigte  der  Competition 
Pro  kaum  Verschleißerscheinun¬ 
gen.  Das  insgesamt  sehr  gute  Bild 
wird  lediglich  durch  die  Anordung 
der  Feuerknöpfe  getrübt.  Es  fehlt 
der  Feuerknopf  im  Griff.  Eine 
Einhand-Steuerung  ist  beim  Com¬ 
petition  Pro  praktisch  unmöglich. 
TAC  2  mit  neuer  Technik 
Er  hält,  was  sein  Name  verspricht. 
Der  »Totally-Accurate-Controller« 
läßt  sich  wie  der  Competition  Pro 


Ascom  High  Score 

J 

8 

4 

N 

Metallzungen 

29,95 

I 

Arcade 

N 

8 

1 

N 

Mikro 

ca.  60,- 

F 

Arcade  Professional 

N 

8 

3 

N 

Mikro 

139- 

H 

Atari  Super  Controller 

J 

8 

2 

N 

Plättchen 

49,- 

F 

Beamstick 

N 

8 

2 

N 

Mikro 

169,-/119,- 

GT 

Challenger  oaca 
Cobra 

n^n£ 

2 

3 

J 

N 

Plättchen 

Mikro 

29,95 

198,- 

U 

F.M.U 

Competition  Pro 

N 

8 

2 

N 

Metallzungen 

69,— 

1 

Competition  Pro  3000 

N 

8 

3 

N 

Metallzungen 

79,- 

R 

Competition  Pro  n 

N 

8 

2 

N 

Mikro 

69,- 

QI,  M, 
R.T.U 

DPJ-900 

J 

8 

3 

N 

Metallzungen 

34,90 

B 

Gunshot  I 

J 

8 

2 

N 

Plättchen 

39,50 

M 

Gunshot  11 

J 

8 

2 

N 

Plättchen 

S4.50 

M 

JS-55 

N 

8 

2 

N 

Plättchen 

69,- 

W 

Joy-Card 

N 

8 

2 

N 

Plättchen 

29,80 

o.  S 

Kraft 

N 

8 

2 

N 

Mikro 

165.- 

E,  L 

Medalist  deluxe  SS700 

J 

4 

3 

N 

Metallzungen 

29.9S 

C 

Medalist  deluxe  SS800 

J 

4 

3 

J 

Metallzungen 

29.95 

C 

Nordphon 

J 

k.A. 

2 

N 

Metallzungen 

29- 

T 

Quickshot  I 

I 

8 

2 

N 

Plättchen 

19,- 

GP.T 

Quickshot  II 

J 

8 

2 

J 

Metallzungen 

29,95 

F,  GP, 
R.T.U 

Quickshot  IV 

J 

8 

2 

N 

Plättchen 

49- 

P 

Quickshot  DC 

J 

8 

2 

N 

Mikro 

59,- 

P 

Quicksoht  V 

J 

8 

3 

N 

Plättchen 

39,- 

P 

Quickshot  VII 

N 

8 

2 

N 

Metallzungen 

35.- 

P 

Sanyo  MJY-002 

J 

4 

2 

N 

2  Potentiometer 

59.- 

V 

Snap  Shot 

N 

8 

2 

N 

Kugelschalter 

34.- 

G 

Superjoy  28 

J 

8 

2 

N 

Plättchen 

19,50 

G 

TAC  2 

N 

8 

2 

N 

Kugelschalter 

49.— 

K 

TAC  3 

N 

8 

3 

N 

Mikro 

59.— 

K 

TED 

N 

8 

1 

N 

Metallzungen 

39- 

D 

Tfcndy 

J 

8 

2 

N 

k.A. 

34,90 

L 

The  Stick 

N 

8 

2 

N 

Quecksilber 

49.- 

R 

Trickball 

N 

8 

1 

N 

Metallzungen 

24.50 

T 

VC  1311 

N 

8 

1 

N 

Metallzungen 

39,- 

D 

Wico  Bat  Handle 

N 

8 

2 

N 

Plättchen 

99,- 

A,  F,  M 

Wico  Boss 

N 

8 

1 

N 

Metallzungen 

59- 

A,  F,  M, 
R.T.U 

Wico  Grip  Handle 

N 

8 

2 

N 

k.A. 

119,- 

A.  M 

Wico  Professional 

N 

8 

2 

N 

Metallzungen 

109,- 

U 

Wico  Redball 

N 

8 

2 

N 

Metallzungen 

99,- 

A.  M,  U 

Wico  Super  3  Way 

N 

8 

2 

N 

Mikro 

119,- 

A.  M.U 

Wico  Super 

Command 

J 

8 

2 

N 

Mikro 

89.- 

T 

Wico  tribate  deluxe 

J 

8 

2 

N 

Plättchen 

109- 

F 

Wico  Trackball 

N 

8 

1 

N 

Digitalscheiben 

119- 

A,  M,  U 

Marconi  Trackball 

N 

8 

3 

N 

Digitalscheiben 

398,- 

O 

Atari  Trackball 

N 

8 

2 

N 

Digitalscheiben 

99,- 

K 

Lindy  Lightpen 

— 

— 

— 

— 

— 

37,45 

O 

Koala  Lightpen 

— 

— 

— 

— 

— 

ca.  200- 

N 

TechPad 

— 

— 

— 

— 

— 

85.- 

U 

Bild  1 .  Marktübersicht  Joysticks 
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men  das  zwei  seiner  Saugnäpfe  all¬ 
zu  wörtlich:  Sie  blieben  an  der  Tisch¬ 
platte  kleben  und  rissen  vom  Ge¬ 
häuse  ab.  Der  Grund  dafür  war,  daß 
die  Saugnäpfe  im  Metallboden  des 
Joysticks  in  einer  scharfkantigen 
Bohrung  stecken.  Da  der  Cobra 
trotz  der  Verwendung  von  Mikro- 
schaltem  schwergängig  ist  und  lan¬ 
ge  Reaktionswege  hat,  kann  länge¬ 
res  Spielen  durchaus  ermüdend 
sein.  Von  den  drei  am  Griff  ange¬ 
brachten  Feuerknöpfen  sind  zwei 
mit  Dauerfeuer  ausgerüstet.  Eine 
Besonderheit  des  Cobra  ist,  daß 
man  den  Griff  um  seine  Längsachse, 
in  einem  Bereich  von  etwa  30  Grad, 
drehen  kann. 

Wico  Three  Way.  Für  jeden  der  richtige  Griff 

Warum  die  beiden  Feuerknöpfe 
des  Three  Way  unabhängig  um- 
schaltbar  gemacht  wurden,  ist  uns 
unklar:  Von  den  zwei  Buttons  kann 
immer  nur  einer  als  Feuerknopf  be¬ 
nutzt  werden.  Hier  hätte  man  den 
Platz  lieber  für  die  Zuschaltung  ei¬ 
ner  Dauerfeuerfunktion  hernehmen 
können.  Ansonsten  ist  der  mit  Mikro¬ 
schaltern  ausgerüstete  Three  Way 
ein  stabiler  Steuerknüppel  mit  si¬ 
cherem  Stand,  der  wegen  seiner 
drei  auswechselbaren  Griffe  für  je¬ 
den  die  richtige  Form  bietet. 
Quickshot  II:  Der  Altmeister 

Das  automatische  Dauerfeuer  hat 
den  Quickshot  II  bekannt  gemacht. 
Ebenso  bekannt  ist  allerdings  auch, 
daß  er  nach  einem  halben  Jahr  in¬ 


tensiven  Gebrauchs  den  Ansprü¬ 
chen  einer  genauen  Steuerung  nicht 
mehr  entspricht.  Der  Grund  dafür 
ist,  daß  die  Joystickbewegungen 
über  einen  Plastikring  auf  Metall¬ 
zungen  übertragen  werden,  und 
das  Ganze  noch  in  Kunststoff  gela¬ 
gert  ist.  Hier  machen  sich  die  Mikro- 
Schalter  der  Konkurrenz  bezahlt. 
Als  höchste  Pluspunkte  muß  man 
dem  Quickshot  II  anrechnen,  daß  er 
durch  seine  Saugnäpfe  eine  gute 
Standfestigkeit  besitzt  und  durch 
seinen  hervorragend  geformten 
Griff  sehr  gut  in  der  Hand  liegt. 
Auch  der  niedrige  Preis  hat  sicher 
seinen  Teil  zu  dem  großen  Verkaufs¬ 
erfolg  beigetragen. 

Ascom  High-Score,  der  Leichtgängige 

Das  Erste,  was  auffällt,  wenn  man 
den  Ascom  das  erste  Mal  in  der 
Hand  hält,  ist  sein  geringes  Gewicht. 
Ein  gewisses  Vorurteil  gegenüber 
der  Stabilität  dieser  Konstruktion 
läßt  sich  deswegen  nicht  verleug¬ 
nen.  Glücklicherweise  gab  es  je¬ 
doch  während  des  gesamten  Tests 
keine  Materialbrüche  zu  beklagen. 
Dadurch,  daß  der  Ascom  sehr 
leichtgängig  ist  und  durch  die  Ver¬ 
wendung  von  Metallzungenschal¬ 
tern  einen  sehr  kurzen  Reaktions¬ 
weg  hat,  ist  er  für  einen  günstigen 
Preis  ein  Spielpartner  ii*  allen  Situa¬ 
tionen. 

VC  1311,  das  Leichtgewicht 

Der  Original-Joystick  von  Commo- 
dore  kommt  bei  diesem  Vergleich 


schlecht  weg.  Zu  zerbrechlich  ist 
seine  Mechanik.  Beim  Härtetest 
brachen  zwei  Steuerknüppel  ab. 

Es  ist  für  jeden  etwas  dabei 

Wenn  Sie  sich  einen  neuen  Joy¬ 
stick  zulegen  wollen,  dann  sollten 
Sie  Ihr  Augenmerk  vor  allem  auf  die 
Lebensdauer  richten.  Die  Lebens¬ 
dauer  eines  Joysticks  hängt  haupt¬ 
sächlich  von  zwei  Faktoren  ab:  von 
der  Mechanik  des  Griffes  und  von 
den  verwendeten  Schaltern.  Am  be¬ 
sten  bewährt  haben  sich  im  Test  Mi¬ 
kroschalter  und  Kugelschalter,  die 
beide  exakt  schalten,  und  deren 
Konstruktion  keine  billige  Kunststoff¬ 
mechanik  zuläßt.  Natürlich  spielt 
auch  der  Preis  des  Joysticks  eine 
Rolle.  Man  sollte  aber  berücksichti¬ 
gen,  daß  die  sehr  billigen  Joysticks 
nach  viel  zu  kurzer  Zeit  nicht  mehr 
zu  gebrauchen  sind.  In  diesem  Zu¬ 
sammenhang  halten  wir  zwei  Joy¬ 
sticks  für  empfehlenswert:  Den 
Competition  Pro  und  den  Tac  2.  Bei¬ 
de  bieten  für  einen  vertretbaren 
Preis  Leistungen,  die  sie  den  teure¬ 
ren  Joysticks  gleichwertig  machen. 
Wer  für  seinen  Joystick  nicht  viel 
Geld  ausgeben  möchte,  dem  kommt 
der  Ascom  High-Score  entgegen. 
Das  gleiche  gilt  auch  für  den 
Quickshot  II,  der  mit  Dauerfeuer 
und  weniger  Stabilität  ausgerüstet 
ist.  Für  den  umgekehrten  Fall,  daß 
der  Preis  keine  wesentliche  Rolle 
spielt,  könnte  man  den  Cobra  in  Er¬ 
wägung  ziehen.  (og) 


Hier  gibt's  Clubs 

Um  Euch  und  den  Clubs  unnö¬ 
tige  Kosten  und  Zeit  zu  ersparen, 
einige  Hinweise.  Bei  schriftli¬ 
chen  Anfragen  an  die  Clubs, 
sollte  generell  ein  ausreichend 
frankierter  Umschlag  beigefügt 
werden.  Bevor  man  einem  Club 
beitritt,  sollte  man  sich  über  des¬ 
sen  Status,  Mitgliederzahl,  Bei¬ 
tragssätze  (soweit  nicht  mit  auf¬ 
geführt)  und  Gebühren  für  Lehr¬ 
gänge  informieren  lassen.  Aus 
Platzgründen  und  der  Über¬ 
sichtlichkeit  wegen  sind  neben 
den  Adressen  nur  einige 
Schwerpunkte  mit  angegeben. 

C  64  User-Club-Harburg 
c/o  Andreas  Groeschl,  Lassal- 
lestr.  54,  2100  Hamburg,  Tbl. 
7651923  und  Werner  Thoele, 
Karl-Arnold-Ring  24,  2102  Ham¬ 
burg  93,  Tel.  7540598. 

Der  Club  trifft  sich  zirka  alle  4 
bis  6  Wochen  bei  einem  der  Mit¬ 
glieder.  Für  Anfänger  werden 
Hilfestellungen  gegeben,  Über¬ 
setzungen  von  Anleitungen  wer¬ 
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den  geschrieben,  eingekauft 
wird  gemeinsam.  Künftige  Ziele 
sind  C/PM,  Erlernen  von  Pro¬ 
grammiersprachen  und  Um¬ 
gang  mit  kommerziellen  Pro- 
grammen. 

C  64  User  Club  Sago 
Ostersielzug  8,  2254  Friedrichs¬ 
stadt. 

Der  Club  befaßt  sich  haupt¬ 
sächlich  mit  Erfahrungs-  und 
Programmaustausch . 

(OMAL-Gruppe  Deutschland 

D.  Beiz,  2270  Utersum/Föhr,  Tel. 
04633/500. 

Tausch  von  Programmen  und 
Infos.  Verbreitung  der  Sprache 
Comal.  Eigene  Maübox 
(04683/554).  Verbindung  zu  al¬ 
len  Comal-Gruppen  in  der  Welt. 
LCC-Lübecker-Commodore-Club 
Moltkestr.  14,  24  Lübeck. 

Clubtreffen,  Softwarebiblic> 
thek,  Computersprachen.  DFÜ 
ist  geplant.  Aufnahmegebühr: 
ein  eigenes  Programm. 
Commodore-User-Club-Liibeck 
Peter  Jabionski,  Bülowstr.  29, 
2400  Lübeck  1. 


Monatliche  Clubzeitschrift. 
Beitrag  10  Mark,  für  Schüler  die 
Hälfte.  Aufnahmegebühr  15 
Mark. 

Computergemeinschaft  64 

Michael  Fuhrmann,  Eilveser 
Hauptstr.  34,  3057  Neustadt  1. 

Austausch  von  Programmen, 
POKEs  und  anderen  Tricks.  Ver¬ 
bindungen  zwischen  Computer¬ 
freunden. 

Computer-Kombinat  Schwarzer  Kanal 

Uwe  Troger,  An  der  Abzucht  la, 
3380  Goßlar  1. 

Softwaretausch,  Adventure- 
Entwicklung,  Tips  &  Tricks,  ei¬ 
gene  Spielehitliste,  Informatik¬ 
nachhilfe. 

Software  Changer  Club 

c/o  Thomas  Ross,  Neukir- 
chenstr.  55,  4150  Krefeld  11. 

Schwerpunkte  sind  Ideen-  und 
Programmaustausch,  Clubzei¬ 
tung  und  Adventures  program¬ 
mieren.  Mitglieder  aus  dem 
Kreis  DD-Krefeld-Kempen  erbe¬ 
ten. 


Computer-Club-Kerken 

Andre  Düttmann,  Schlehdorn¬ 
weg  10,  4173  Kerken  1. 

Geplant  ist,  eine  umfangrei¬ 
che  Softwarebibliothek  anzule¬ 
gen,  alle  drei  Monate  eine  Club¬ 
zeitung  herauszubringen.  Tref¬ 
fen  werden  einmal  im  Jahr  statt¬ 
finden.  Des  weiteren  sind  Auto¬ 
renwettbewerbe  geplant.  Eine 
DFÜ-Nummer  ist  in  Arbeit. 

C  64-User-Club  der  Grafschaft 

Bad  Bentheim,  Jürgen  Erbe,  Am 
Böckler  9,  4444  Bad  Bentheim. 

Regelmäßige  Treffen,  ge¬ 
meinsames  Lösen  von  Compu¬ 
terproblemen  des  einzelnen. 
Geplant  sind  eine  EPROM- 
Brennerei  und  die  Anschaffung 
eines  Akustikkopplers. 

C  64-User-Club-V.H.S.I. 

Postfach  100905,  4970  Bad  Oeyn¬ 
hausen,  Tel.  0571/75377.  Jeweils 
von  19  Uhr  bis  20  Uhr. 

Gegründet  1983,  trifft  sich  der 
Club  einmal  monatlich.  Beitrag 
gibt  es  keinen,  ein  Clubinfo  etwa 
3-4mal  jährlich. 
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C  64 


Es  geht  auch  anders 


Bild  1 .  Der  neue  Lightpen  von  Lindy  und  die 
passende  Software  dazu.  Einfaches  Arbeiten 
ist  vorprogrammiert. 


Bei  Spielen  ist  es  wohl  keine  Fra¬ 
ge.  Das  dominierende  Steuer¬ 
gerät  ist  der  Joystick.  Wie  aber 
sieht  es  zum  Beispiel  bei  Anwender- 
Software  aus?  Hier  bieten  sich  Alter¬ 
nativen  an. 

Als  erstes  wäre  in  diesem  Zusam¬ 
menhang  der  Lightpen  (Bild  1)  zu 
nennen.  Mit  ihm  ist  es  möglich,  ei¬ 
nen  Punkt  direkt  auf  dem  Bild¬ 
schirm,  quasi  durch  antippen,  aus¬ 
zuwählen.  Einige  Zeichenprogram¬ 
me  bieten  in  Ihrem  Menü  bereits  die 
Möglichkeit,  einen  Lichtgriffel  di¬ 
rekt  anzuschließen,  um  mit  ihm  dann 
zu  zeichnen.  Da  der  Lightpen  keine 
dem  Joystick  ähnlichen  Signale  lie¬ 
fert,  ist  eine  spezielle  Software  zur 
Signal-Auswertung  nötig.  Die  eigent¬ 
lichen  Schwierigkeiten  liegen  hier 
in  der  Hardware.  Der  Lichtempfän¬ 
ger  (ein  Fototransistor)  erfaßt  auf 
dem  Bildschirm  zu  viele  Punkte  auf 
einmal  (siehe  64 'er,  9/85)  —  die  Ab¬ 
frage  wird  ungenau. 

Auf  dem  Bildschirm 
malen 

Außerdem  ist  die  Abfragege¬ 
schwindigkeit  zu  langsam,  um  rich¬ 
tig  auf  dem  Bildschirm  schreiben  zu 
können.  Präzisions-Lichtgriffel,  die 
dieses  Manko  nicht  aufweisen  sind 
verhältnismäßig  teuer.  Die  optimale 
Verwendung  erhält  der  Lightpen 
beim  Auswählen  von  Menüpunkten. 
Da  man  dafür  keinerlei  Kenntnisse, 
nicht  einmal  über  die  Lage  der  Ta¬ 
sten  auf  der  Tastatur,  benötigt,  kann 


Nicht  immer  ist  der  Joy¬ 
stick  die  optimale  Schnitt¬ 
stelle  zum  Computer.  Dem 
Anwender  stehen  neben 
der  Tastatur  auch 
andere  Eingabegeräte 
zur  Verfügung. 


Bild  2.  Der  Marconi  RB2-Trackball  von  Lindy 
benötigt  ebenfalls  spezielle  Software. 

Ein  sehr  exaktes  Eingabegerät. 


wirklich  jeder  damit  arbeiten.  Der 
französische  Computer-Hersteller 
Thomson  hat  im  TO  7  einen  Lichtgri- 
fel  bereits  fest  eingebaut.  Für  den  C 
64  hat  der  Lightpen  trotz  großen  In¬ 
teresses  noch  keine  weite  Verbrei¬ 
tung  gefunden. 

Eine  weitere  Alternative  ist  der 
Trackball  (Bild  2).  Sein  großer  Vor¬ 
teil  ist  die  Genauigkeit,  mit  der  man 
auf  dem  Bildschirm  in  allen  Richtun¬ 
gen  »herumfahren«  kann.  Im  Gegen¬ 
satz  zum  Joystick  gelingen  einer  ge¬ 
übten  Hand  sogar  Geraden  in  belie¬ 
bigen  Winkeln  (ohne  Lme-Funk- 
tion).  Der  Joystick  dagegen  erlaubt 
nur  45-Grad-Winkel. 

Allerdings  kann  man  nicht  jeden 
Trackball  als  Joystickersatz  herneh¬ 
men.  Bei  einigen  Modellen  ist  eben¬ 
falls  Software  zur  Verarbeitung  der 
Eingangsimpulse  erforderlich.  Zur 
Erzeugung  dieser  Impulse  ist  etwas 


mehr  Technik  und  Auswertungs¬ 
elektronik  nötig  als  in  einem  Joy¬ 
stick. 

Ebenfalls  optimal  für  Grafik  ist  das 
speziell  fürs  Malen  ausgelegte  Gra¬ 
fiktablett.  Die  dazu  gehörigen  Pro¬ 
gramme  (das  bekannteste  dürfte  Ko¬ 
ala  Pad  sein)  nutzen  die  Möglichkei¬ 
ten  des  C  64  fast  optimal,  indem  Sie 
dem  Benutzer  komfortable  Menüs 
(natürlich  auf  der  Basis  des  Grafikta¬ 
bletts)  zur  Verfügung  stellen. 

Nach  demselben  Prinzip  arbeitet 
das  Tbuch-Tablet.  Jedoch  ist  dessen 
Arbeitsfläche  so  groß,  daß  man 
nicht  mit  einem  Stift,  sondern  mit 
den  Fingern  darauf  malen  kann. 

Wenn  man  von  Grafik  und  anwen¬ 
derfreundlichen  Menüs  spricht, 
dann  darf  die  Maus  nicht  fehlen.  Im 
Prinzip  ist  die  Maus  ein  umgedreh¬ 
ter  Trackball.  Auch  die  Impulse 
werden  auf  die  gleiche  Art  erzeugt. 
Demnächst  soll  von  NCE  eine  Maus 
für  den  C  64  auf  den  Markt  kommen. 
Für  den  C  128  wird  von  Commodore 
selbst  (zunächst  nur  in  Amerika)  ei¬ 
ne  Maus  angeboten.  Intensiv  ge¬ 
nutzt  wird  die  Maus  zur  Zeit  aller¬ 
dings  nur  bei  Personal  Computern, 
wie  zum  Beispiel  IBM-PC,  Macintosh 
oder  Amiga. 

Eine  runde  Sache 

Um  eine  Alternative  zum  Joystick 
zu  finden,  muß  man  also  von  der  An¬ 
wendung,  beziehungsweise  von 
den  Anforderungen  ausgehen.  Für 
Spiele  ist  es  eindeutig  der  Track¬ 
ball,  der  sich  auch  für  die  meisten 
anderen  Anwendungen  eignet. 

Der  Lightpen  dürfte  seinen  Ein¬ 
satz  in  menügesteuerten  Program¬ 
men  und  Grafiksoftware  finden.  Es 
gibt  bereits  Lernprogramme  mit 
Lichtgriffel,  die  den  natürlichen 
Drang  von  Kindern  ausnutzen,  auf 
Gegenstände  mit  dem  Finger  zu  zei¬ 
gen.  Das  Grafiktablett  hat  seine  An¬ 
wendung  m  den  Malprogrammen 
gefunden,  während  die  Maus  wohl 
von  den  professionellen  Anwender¬ 
programmen  in  Zukunft  nicht  weg¬ 
zudenken  sein  wird.  (og) 


Info  Lindy-Elektromk  GmbH.  Postfach  1428.  6800  Mann¬ 
heim  1, 

NCE,  Nordphon  Computer  Electronic,  Fhederbogen  1. 2399 
T3rp 
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Bei  der  Verwendung  professio¬ 
neller  Software  (wie  zum  Bei¬ 
spiel  Spielen  oder  Zeichenpro¬ 
grammen),  fällt  es  einem  schon  gar 
nicht  mehr  auf.  Der  Gebrauch  des 
Joysticks  wird  hier  fast  als  Selbstver¬ 
ständlichkeit  empfunden.  Will  man 
es  dann  selbst  einmal  versuchen, 
kommt  man  mit  dem  Commodore- 
Handbuch  nicht  weit.  Deshalb  soll 
hier  ein  Minimalprogramm  zur  Ab¬ 
frage  des  Joysticks  weiterhelfen. 
Diese  zehn  hier  zu  erarbeitenden 
Basic-Zeilen  können  vielleicht  ein¬ 
mal  die  Basis  eines  komfortablen 
Menüs  bilden. 

Zunächst  einmal  müssen  wir  wis¬ 
sen,  was  wir  mit  der  Abfrage  be¬ 
zwecken  wollen.  Um  uns  auf  das  We¬ 
sentliche  konzentrieren  zu  können, 
bewegen  wir  einfach  ein  invertiertes 


Verfügung,  die  ebenfalls  mit  PEEK 
gelesen  werden  kann. 

20  ME  =  PEEK(BILD):POKE  BILD, 
160:  POKE  BILD  +  FARBE, 
PEEK(646) 

Jetzt  kommt  aber  endlich  der  Joy¬ 
stick  dran.  Die  Übergabe  erfolgt  in 
der  Variablen  JS: 

30  JS  =  PEEK(PO):BEWEG  =  0 

BEWEG  wird  nachher  die  Summe 
der  Bewegungen,  die  natürlich  vor 
der  Auswertung  von  JS  auf  Null  ge¬ 
setzt  werden  muß. 

Vom  Byte  des  Joystick-Ports  inter¬ 
essieren  uns  genau  die  ersten  fünf 
Bits,  die  über  die  logische  Verknüp¬ 
fung  AND  ausgefiltert  werden.  Ein 
vom  Joystick  aktiviertes  Bit  hat  den 
Wert  Null,  dem  Ruhezustand  ent¬ 
spricht  die  logische  Eins  (Vorsicht, 
Pferdefuß).  Um  auf  dem  Bildschirm 


C  64 


unter  unserem  »Cursor«  wieder  her. 
80  IF  (JS  AND  16)  =  0  THEN  POKE 
BILD,ME:END 

Um  nicht  aus  dem  Büdschirm 
»herauszufahren«  (dahinter  liegt 
schließlich  unser  Basic-Programm), 
müssen  wir  testen,  ob  die  alte  Posi¬ 
tion  zuzüglich  der  Summe  der  Bewe¬ 
gungen  noch  im  Bereich  von  1024 
bis  2023  liegt. 

90  IF  BILD  +  BEWEG  <  1024  OR 
BILD  +  BEWEG  >2023  THEN 
BEWEG  =  0 

Jetzt  brauchen  wir  nur  noch  unse¬ 
ren  »Cursor«  bewegen.  Dazu  POKEn 
wir  zunächst  das  vorhin  gemerkte 
Zeichen  auf  die  aktuelle  Position. 
Dann  zählen  wir  die  errechneten 
Bewegungen  zur  Bildschirmadres¬ 
se  dazu.  Alles  was  bleibt,  ist  ein 
Rücksprung  zu  Zeile  20,  um  unseren 


Der  Trick 
mit  dem  Joystick 

Wissen  Sie  eigentlich,  wie  man  den  Joystick  abfragt? 
Wenn  nicht,  dann  sollten  Sie  uiibedingt  weiterlesen. 


Leerzeichen  über  den  Bildschirm, 
gesteuert  durch  den  Joystick  an  Port 
2.  Die  Abfrage  selbst  geschieht 
durch  den  Basic-Befehl  PEEK,  also 
das  Auslesen  einer  Speicherzelle. 
Im  Falle  des  Port  2  ist  das  die  Adres¬ 
se  56320.  Für  Port  1  wäre  es  56321. 
Um  uns  auf  dem  Bildschirm  orientie¬ 
ren  zu  können,  benötigen  wir  des¬ 
sen  Anfangsadresse  (1024,  das  ist 
links  oben)  und  Endadresse  (2023, 
rechts  unten),  sowie  den  dazugehö¬ 
rigen  Farbspeicher  (pro  Bildpunkt 
54272  addieren).  Unser  Programm 
fängt  also  so  an: 

10  PO  =  56320:BILD  =  1024:FARBE  = 
54272 

Als  nächstes  müssen  wir  unser 
Zeichen  auf  den  Bildschirm  bringen 
—  und  zwar  ohne  ein  eventuell  be¬ 
reits  vorhandenes  Zeichen  zu  verlie¬ 
ren.  Und  für  den  Fall,  daß  kein  altes 
Zeichen  vorhanden  war,  ist  noch  die 
aktuelle  Farbe  zu  setzen.  Das  zu 
merkende  Zeichen  lesen  wir  mit 
PEEK  aus,  und  heben  es  in  der  Va¬ 
riable  ME  auf.  Dann  schreiben  wir 
unser  Zeichen  (es  hat  den  Code  160) 
mit  POKE  auf  den  Bildschirm.  Die 
aktuelle  Farbe  stellt  das  Betriebssy¬ 
stem  m  der  Adresse  646  zu  unserer 

24 


eine  Bewegung  nach  oben  darzu¬ 
stellen,  subtrahiert  man  von  der  Po¬ 
sition  des  Zeichens  den  Wert  40.  Ei¬ 
ne  Zeile  nach  oben  entspricht  dem 
ersten  Bit  der  Variablen  JS.  In  Basic 
heißt  das: 

40  IF  (JS  AND  1)  =  0  THEN  BEWEG  = 
BEWEG-40 

Mit  den  anderen  Richtungen  wird 
es  genauso  gehandhabt.  Abwärts 
entspricht  dem  zweiten  Bit: 

50  IF  QS  AND  2)  =  0  THEN  BEWEG  = 
BEWEG  +  40 

Das  dritte  Bit  ist  für  Bewegung 
nach  links  zuständig,  und  entspricht 
auf  dem  Bildschirm  der  Subtraktion 
von  Eins: 

60  IF  QS  AND  4)  =  0  THEN  BEWEG  = 
BEWEG-1 
und  nach  rechts: 

70  IF  QS  AND  8)  =  0  THEN  BEWEG  = 
BEWEG +  1 

Auf  diese  Weise  sind  auch  die 
möglichen  Diagonalbewegungen 
erfaßt,  zum  Beispiel  entspricht  die 
Bewegung  nach  links  unten  dem 
Wert  +39. 

Die  letzte  Abfrage  gilt  dem  Feu¬ 
erknopf.  Bei  dessen  Betätigung  wol¬ 
len  wir  das  Programm  beenden.  Da¬ 
bei  stellen  wir  natürlich  das  Zeichen 


Cursor  wieder  korrekt  auf  den  Bild¬ 
schirm  zu  bringen. 

100  POKE  BILD,ME:BILD  =  BILD  + 
BEWEG:  GOTO20 

Wül  man  den  Joystick  an  Port  1  an¬ 
bringen,  ist  lediglich  Zeile  10  zu  än¬ 
dern.  Die  Adresse  ist  dann  56321. 
Also: 

10  PO  =  56321... 

Um  zwei  Joysticks  gleichzeitig  ab¬ 
zufragen,  sind  folgende  Zeüen  um¬ 
zuschreiben: 

10  PI  =  56321:P2  =  56320:BI  =  1024... 

30  J1  =  PEEK(P1):J2  =  PEEK(P2): 

JS  =  NOT(NOT  J1  OR  NOT  J2): 
BEWEG  =  0 

Die  Verknüpfung  entsteht  durch 
die  negative  Logik  der  Ports. 

Da  ein  Joystick  an  Port  1  Zeichen  in 
den  Tastaturpuffer  schreibt,  ist  es 
sinnvoll,  beim  Verlassen  des  Pro¬ 
gramms  diesen  zu  löschen;  am  be¬ 
sten,  indem  man  in  Zeile  80  vor  den 
END-Befehl  ein  »POKE  198,0«  setzt. 

Damit  wäre  unser  Minimal-Pro¬ 
gramm  beendet,  obwohl  es  jetzt  ei¬ 
gentlich  erst  richtig  losgeht.  Wir  hof¬ 
fen,  daß  Sie  die  Joystick-Abfrage  in 
Ihren  eigenen  Programmen  ausnut¬ 
zen  können.  Dann  haben  Sie  das 
Lemziel  erreicht.  (og) 
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Was  bringt 
der  C  128? 

Der  C  128  gilt  als  Commodores  neue 
»Wundermaschine«  fürs  Büro  und 
zu  Hause.  Die  Argumente,  die  für 
den  C  128  sprechen,  sind  CP/M, 
64er-Kompatibilität,  128  KByte  RAM 
und  80  Zeichen  pro  Zeile.  Doch  in 
welchen  Fällen  braucht  man  diese 
zusätzlichen  Fähigkeiten?  lohnt  sich 
der  Umstieg  vom  C  64  oder  der 
Neukauf?  Wir  geben  Ihnen  hier  eine 
kleine  Entscheidungshilfe. 


Bild  1.  Der  C  128  kann  leicht  mit  auf  Reisen  genommen  werden 


Die  meisten  Anfragen  zum  C 128, 
die  bei  der  64’er-Redaktion 
eingehen,  beziehen  sich  — 
merkwürdig  genug  —  auf  den  64er- 
Modus.  Beginnen  wir  daher  mit  der 
Betrachtung  der  Qualitäten  des  C 
128  als  64er. 

Der  C  128  ist  nach  Eingabe  des 
Kommandos  »GO  64«  ein  beinahe 
perfekter  Commodore  64.  Das  »bei¬ 
nahe«  bezieht  sich  darauf,  daß  man 
nicht  ganz  hundertprozentig  sicher 
sein  darf,  daß  tatsächlich  alle  C 
64-Programme  auch  wirklich  laufen. 
Insbesondere  bei  Spielen  kann  man 
da  schon  mal  Pech  haben.  Beispiels¬ 
weise  läuft  »Rescue  on  Fractalus« 
nicht,  weil  dieses  Spiel  merkwürdi¬ 
gerweise  auf  eines  der  beiden  zu¬ 
sätzlichen  VIC-Register  zugreift,  die 
im  C  64  gar  nicht  vorhanden  sind.  So 
wird  also  bei  diesem  Spiel  von  Fall 
zu  Fall  das  Kontrollbit  für  2  MHz- 
Betrieb  gesetzt  —  mit  der  unange¬ 
nehmen  Konsequenz,  daß  der  VIC- 
Chip  sich  abschaltet,  weil  er  nur  1 
MHz  bewältigen  kann.  Außerdem 
gerät  durch  den  verdoppelten  Pro¬ 
zessortakt  natürlich  das  gesamte  Ti¬ 
ming  durcheinander.  Bei  anderen 
Spielen  ergeben  sich  insbesondere 
bei  den  Kassettenversionen  mitun¬ 
ter  Probleme  infolge  eines  zu  guten 
Kopierschutzes. 

Wer  aber  den  C  64  näher  kennt, 
der  weiß,  daß  solche  oder  ähnliche 
Phänomene  nicht  direkt  auf  man¬ 
gelnde  Kompatibilität  zurückzufüh¬ 
ren  sind,  sondern  zum  Teil  auch 
beim  C  64  auftreten.  Im  Laufe  der 
letzten  Jahre  gab  es  nämlich,  vom 
Anwender  vielfach  unbemerkt,  ei¬ 


ne  ganze  Reihe  unterschiedlicher 
Versionen  des  C  64,  von  denen  ge¬ 
nau  genommen  keine  mit  der  ande¬ 
ren  identisch  war.  Der  unterschied¬ 
liche  Hardware-Aufbau  der  Platinen 
verschiedener  Bauserien  zeigt  dies 
ganz  deutlich.  Beispielsweise  funk¬ 
tioniert  der  serielle  Reset  bei  älte¬ 
ren  Geräten  einwandfrei,  bei  neue¬ 
ren  dann  nicht  mehr. 

Daher  sollte  man  gerade  diesem 
Kompatibilitäts-Problem  bei  der 
Entscheidung  für  die  Anschaffung 
eines  C  128  keine  allzugroße  Bedeu¬ 
tung  einräumen.  Schließlich  wird 
ohnehin  niemand  rund  2000  Mark 
für  Computer  und  1571-Laufwerk 
ausgeben,  nur  um  anschließend 
den  C  128  im  64er-  und  die  1571  im 
1541-Modus  laufen  zu  lassen.  99,5 
Prozent  der  C  64-Software  ist  auf 
dem  C  128  ohne  Probleme  lauffähig, 
und  wer  damit  nicht  leben  kann,  der 
sucht  in  Wirklichkeit  keinen  Com¬ 
puter,  der  zum  C  64  kompatibel  ist, 
sondern  einen,  der  mit  dem  C  64 
identisch  ist  —  und  einen  solchen 
gibt  es  ja  schon  seit  einigen  Jahren 
überall  zu  kaufen. 

Viel  Leistung  im 
C  128-Modus 

Wenden  wir  uns  nun  dem  profes¬ 
sionelleren  Teil  des  neuen  Commo¬ 
dore  zu,  dem  C  128-Modus,  der  eini¬ 
ges  zu  leisten  vermag. 

Schon  die  Möglichkeit,  die  Takt¬ 
frequenz  des  Prozessors  auf  2  MHz 
zu  erhöhen,  läßt  die  Aufmerksam¬ 


keit  für  diesen  Computer  wachsen 
(übrigens  kann  auch  der  C  64- 
Modus  entsprechend  »getuned« 
werden).  Ein  neues  Register  im  VIC 
ist  dafür  zuständig.  Wenn  das  Bit  1  im 
Register  48  gesetzt  wird,  läuft  der 
Prozessor  in  beiden  Modi  mit  2  MHz. 

Zum  zweiten  fallen  die  128  KByte 
RAM  auf,  die  professionelle  Anwen¬ 
dungen  ermöglichen,  die  dem  C  64 
mangels  Speicherkapazität  ver¬ 
schlossen  bleiben  mußten.  Für  den 
Programmierer  ist  natürlich  das  lei¬ 
stungsstarke  Basic  7.0  interessant. 
Die  beim  C  64  oft  schmerzlich  ver¬ 
mißten  Grafikbefehle  und  Program¬ 
mierhilfen  sind  hier  vorhanden.  Ins¬ 
gesamt  hat  das  Basic  7.0  recht  viel  zu 
bieten  und  ist  bei  genauer  Betrach¬ 
tung  sogar  eines  der  ganz  wesentli¬ 
chen  Argumente  für  den  C  128.  Mit 
einer  Diskussion  aller  Basic-Befehle 
könnte  man  leicht  ein  ganzes  Son¬ 
derheft  füllen,  deshalb  soll  an  die¬ 
ser  Stelle  nicht  weiter  darauf  einge¬ 
gangen  werden.  Festzuhalten  bleibt 
jedoch,  daß  das  Basic  7.0  den  Ein¬ 
stieg  in  die  Programmierung  ein¬ 
deutig  erleichtert,  aber  auch  den 
Profi  durch  die  Fülle  der  sich  bieten¬ 
den  Möglichkeiten  begeistern  wird. 
Für  Maschinensprache-Freaks  ist 
der  eingebaute  Monitor  mit  Minias¬ 
sembler  interessant. 

Man  darf  wohl  sagen,  daß  mit  die¬ 
sem  Basic  und  dem  verfügbaren 
Speicherplatz  eine  professionelle 
Anwendung  des  C  128  beispielswei¬ 
se  im  kommerziellen  Bereich  durch¬ 
aus  denkbar  ist.  Doch  gibt  es  zwei 
Haken  bei  der  Geschichte. 
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Das  eine  Problem  ist  das  alte  1541- 
Floppy-Laufwerk,  das  leider  noch 
nicht  durchgehend  von  der  schnel¬ 
len  1571  (Bild  2)  abgelöst  worden  ist. 
Aufgrund  seiner  extrem  langsamen 
Schreib-  und  Lesegeschwindigkeit 
ist  das  1541-Laufwerk  für  jegliche 
kommerzielle  Anwendung  völlig  un¬ 
brauchbar.  Solange  also  der  C  128- 
Anwender  nicht  das  Laufwerk  1570/ 
1571  zur  sinnvollen  Ergänzung  des 
Computers  zur  Verfügung  hat,  wer¬ 
den  die  Fähigkeiten  des  C  128  wohl 
noch  eine  Weile  ungenutzt  in  seinem 
Plastikgehäuse  schlummern  müs¬ 
sen. 

Der  zweite  Haken  ist  das  zur  Zeit 
noch  geringe  Software-Angebot 
zum  C  128-Modus.  Was  nützt  der  be¬ 
ste  Computer,  wenn  kaum  Software 
zu  kaufen  ist.  Die  einzig  denkbare, 
für  professionelle  Anwender  aber 
wohl  unzumutbare  Alternative  ist 
die,  sich  seine  professionelle  Soft¬ 
ware  selbst  zu  schreiben.  Man  kann 
nur  hoffen,  daß  sich  in  nächster  Zeit 
Softwarehersteller  in  größerer  Zahl 
als  bisher  an  den  C  128  heranwagen. 

Was  bringt  der 
CP/M-Modus? 

Doch  wozu  gibt  es  die  dritte  Be¬ 
triebsart  des  C  128,  das  CP/M-Sy- 
stem?  Der  Z80-Prozessor,  der  in  die¬ 
sem  Modus  aktiv  wird,  verleitet  den 
professionellen  Anwender  schon 
eher  dazu,  an  die  Anschaffung  eines 
C  128  zu  denken.  Die  sich  tatsächlich 
ergebende  Leistungsfähigkeit  des 
Systems  läßt  jedoch  leise  Zweifel  an 
CP/M  aufkommen. 

Zwar  ist  es  nach  dem  unsäglichen 
CP/M-Modul  für  den  C  64  im  zwei¬ 
ten  Anlauf  endlich  gelungen,  ein 
funktionsfähiges  CP/M-System  als 
Zweit-Betriebssystem  auf  einem 
Commodore-Rechner  zu  installie¬ 
ren,  wodurch  dem  C  128-Besitzer 
die  ganze  Welt  der  CP/M-Program- 
me  offensteht. 

So  schön  allerdings  der  CP/M- 
Modus  quasi  als  Zugabe  zum  128er- 
Modus  ist,  es  bleiben  doch  einige 
Mängel,  die  es  angeraten  erschei¬ 
nen  lassen,  sich  den  C  128  nicht  aus¬ 
schließlich  wegen  des  CP/M-Mo¬ 
dus  anzuschaffen. 

Der  Z80-Prozessor  wird  zwar,  wie 
bei  CP/M-Systemen  Standard,  mit 
einer  Taktfrequenz  von  4  MHz  be¬ 
trieben.  Um  aber  nicht  das  gesamte, 
auf  2  MHz  basierende  Bussystem 
des  C  128  durcheinanderzubringen, 
wird  der  Z80  bei  jedem  Zugriff  auf 
den  Speicher  auf  2  MHz  abge¬ 
bremst.  Nun  stellt  auch  bereits  das 
einfache  Holen  eines  Befehls  ja  ei¬ 


nen  Speicherzugriff  dar,  so  daß  sich 
eine  effektive  Taktfrequenz  von 
schätzungsweise  2,5  MHz  ergibt. 

CP/M-Software,  die  ja  nicht  für  ei¬ 
ne  bestimmte  Hardware  optimiert 
ist  und  daher  bei  hardwareorien¬ 
tierten  Operationen  wie  beispiels¬ 
weise  der  Bildschirmausgabe  so¬ 
wieso  nicht  durch  überhöhte  Ge¬ 
schwindigkeit  glänzt,  wird  durch  die 
reduzierte  Taktfrequenz  des  Z80 
nochmals  gebremst.  Ein  anderer 
Gesichtspunkt  fällt  noch  schlimmer 
ins  Gewicht:  CP/M  ist  ein  disketten¬ 
orientiertes  Betriebssystem.  Das  be¬ 
deutet,  daß  die  meisten  Systemkom¬ 
mandos  als  Files  auf  der  Diskette 
vorhanden  sind  und  vor  der  Ausfüh¬ 
rung  erst  geladen  werden  müssen. 
Außerdem  machen  praktisch  alle 
größeren  CP/M-Anwenderpro- 
gramme  reichlich  Gebrauch  von 
der  Diskette:  Progiammteile  wer¬ 
den  während  der  Arbeit  mit  dem 
Programm  dynamisch  nachgela¬ 
den,  die  meisten  Compiler  für  Pro¬ 
grammiersprachen  übersetzen  di¬ 
rekt  von  der  Diskette  auf  die  Disket¬ 
te.  Das  hat  zur  Folge,  daß  ein  auch 
nur  einigermaßen  vernünftiges  Ar¬ 
beiten  unter  CP/M  im  Zusammen¬ 
hang  mit  der  1541-Floppy  völlig  un¬ 
möglich  wird.  Allein  das  Booten  des 
CP/M-Systems  dauerten'-  der  1541 
zwei  Minuten,  die  Ausführung  einfa¬ 
cher  Kommandos  wie  »DIR«  oder 
»TYPE«  wird  zur  Geduldsprobe.  Die 
neue  1570/1571-Floppy  ist  da  mit  16 
Sekunden  schon  um  einiges  schnel¬ 
ler,  im  Vergleich  zu  »echten«  CP/M- 
Systemen  (typisch:  2  bis  4  Sekun¬ 
den)  aber  immer  noch  um  eine  Grö¬ 
ßenordnung  zu  langsam. 

Dennoch  kann  der  C  128  in  Ver¬ 
bindung  mit  der  Floppystation 
1570/1571  durchaus  als,  wenn  auch 
langsamer,  CP/M-Computer  be¬ 
zeichnet  werden.  Ein  großer  Vorteil 
dabei  ist  noch  die  Fähigkeit  dieses 
Laufwerks,  sich  den  verschiedenen 
unter  CP/M  üblichen  Diskettenfor¬ 
maten  von  selbst  anzupassen.  Für 


wirklich  kommerzielle  Anwendun¬ 
gen,  bei  denen  große  Datenmen¬ 
gen  auf  Diskette  bearbeitet  werden 
müssen,  zeigen  sich  allerdings  doch 
die  durch  die  Zugriffsgeschwindig¬ 
keit  der  Floppy  gesetzten  Grenzen. 
Für  denjenigen  aber,  der  sich  mehr 
hobby mäßig  mit  CP/M  beschäfti¬ 
gen  möchte,  stellt  der  CP/M-Modus 
ganz  sicher  eine  Bereicherung  des 
C  128-Systems  dar. 

C  128  oder  C  64? 

Die  Glanzlichter  des  C  128  sind  oh¬ 
ne  Zweifel  die  Leistungsfähigkeit  im 
128er-Modus  und  das  große  Soft¬ 
ware-Angebot  im  64er-Modus.  Der 
CP/M-Modus  kann  für  professionel¬ 
le  Anwendungen  nicht  so  recht 
überzeugen,  ist  insgesamt  aber  na¬ 
türlich  dennoch  eine  Bereicherung 
des  Systems. 

Leider  läßt  das  Software-Angebot 
für  den  C  128-Modus  doch  noch  sehr 
zu  wünschen  übrig.  Der  Hinweis  auf 
den  C  64-Modus  vermag  hier  nicht 
ganz  zu  überzeugen,  denn  dieser 
Modus  nutzt  die  im  C  128  stecken¬ 
den  Möglichkeiten  nur  zu  einem 
Bruchteil  aus. 

Letztlich  ist  es  für  den  Anwender 
auch  einfach  eine  Preisfrage:  Mit 
dem  C  64  bekommt  man  für  inzwi¬ 
schen  unter  500  Mark  einen  ausge¬ 
reiften  Computer  mit  einem  Riesen¬ 
angebot  an  Software.  Wer  mit  40  Zei¬ 
chen  pro  Zeile  und  der  langsamen 
1541-Floppy  leben  kann,  der  ist  mit 
dem  C  64  sicher  noch  immer  gut  be¬ 
raten,  zumal  die  Unzulänglichkeiten 
des  C  64-Basic  sich  durch  entspre¬ 
chende  Basic-Erweiterungen  auch 
beheben  lassen. 

Das  eigentlich  Interessante  am  C 
128  ist  eben  der  C  128-Modus,  und 
jeder  Interessierte  sollte  sich  prü¬ 
fen,  ob  er  wirklich  einen  C  128  will 
und  braucht  oder  nur  einen  Compu¬ 
ter,  auf  dem  die  C  64-Software  läuft. 

(Michael  Thomas/ev) 


Bild  2.  Erst  die 
1571  erlaubt  ein 
vernünftiges  Arbei¬ 
ten  im  CP/M-Modus 
mit  dem  C  128 
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Turbo- Pascal  auf  dem  C  128 

Turbo-Pascal  Kat  sich  seit  seinem  ersten  Erscheinen  vor  einigen  Jahren  zu  einer 
Art  Neben-Standard  für  Pascal-Compiler  entwickelt.  Der  Turbo-Compiler  gilt  als 
einer  der  schnellsten  und  leistungsfähigsten  Päscal-Compiler  überhaupt. 
Unter  CP/M  ist  Turbo-Pascal  nun  auch  für  den  C  128  verfügbar. 


Wer  einen  C  128  besitzt,  der 
wird  sich  sicherlich  auch 
schon  mit  dem  CP/M-Modus 
seines  Rechners  beschäftigt  haben. 
Denn  mit  CP/M  eröffnet  sich  eine 
der  größten  Softwaresammlungen 
überhaupt.  So  wird  auch  das  vielge¬ 
rühmte  Turbo-Pascal  endlich  für 
den  Commodore-Anwender  verfüg¬ 
bar. 

Was  bietet  die  moderne  und  über¬ 
aus  verbreitete  Sprache  Pascal  dem 
C  128-Anwender  überhaupt?  Hier 
ein  kurzer  Einblick: 

Mit  Pascal  lernt  man  eine  sehr 
strukturierte  Sprache,  bei  der  man 
den  mitunter  recht  chaotischen  Pro¬ 
grammierstil  von  Basic  sehr  schnell 
vergißt.  Diese  nach  dem  französi¬ 
schen  Mathematiker  Blaise  Pascal 
benannte  Sprache  fordert  eine  ge¬ 
naue  Erfassung  des  Problems,  das 
programmiert  werden  soll.  Mit  ein¬ 
fachem  »Drauflosprogrammieren« 
wird  man  daher  nicht  sehr  weit  kom¬ 
men. 

Was  bringt  Turbo-Pascal? 

Turbo-Pascal  ist  stark  dem 
Standard-Pascal  von  Nikolaus 
Wirth,  dem  Schöpfer  von  Pascal,  an¬ 
gepaßt,  hat  aber  noch  einige  Zusät¬ 
ze  und  Erweiterungen  parat,  die  das 
Herz  eines  jeden  Pascal-Fans  höher 
schlagen  lassen:  Mit  ABSOLUTE 
kann  der  Programmierer  die  nor¬ 
malerweise  vom  Compiler  vergebe¬ 
ne  absolute  Speicheradresse  von 
Variablen  festlegen.  EXTERNAL 
dient  zum  Aufruf  von  in  Assembler 
geschriebenen  und  getrennt  über¬ 
setzten  Prozeduren  und  Funktionen. 
Mit  INLINE  kann  Maschinenspra¬ 
che  direkt  in  ein  Pascal-Programm 
integriert  werden,  was  bei  zeitkriti¬ 
schen  Anwendungen  von  Bedeu¬ 
tung  sein  kann.  Die  sehr  maschinen¬ 
nahen  Operationen  SHL  und  SHR 
entsprechen  den  Schiebeoperatio¬ 
nen  in  Assembler. 

Das  Attribut  PACKED  wird  vom 
Turbo-Pascal-Compiler  zwar  ohne 
Murren  akzeptiert,  hat  aber  keine 
Wirkung,  da  Turbo-Pascal  ohnehin 
schon  einen  sehr  komprimierten 
Code  erzeugt. 


Doch  damit  ist  das  »Sonderzube¬ 
hör«  noch  nicht  erschöpft.  Turbo- 
Pascal  stellt  noch  eine  Reihe  von 
Standard-Prozeduren,  -Funktionen 
und  -Konstanten  bereit,  die  die  Pro¬ 
grammierung  erleichtern  und  die 
Möglichkeiten  der  Problemlösung 
erweitern. 

Der  wichtige  und  oft  gebrauchte 
Datentyp  STRING,  den  man  sich 
in  anderen  Pascal-Versionen  erst 
selbst  definieren  muß,  ist  in  Turbo- 
Pascal  bereits  standardmäßig  vor¬ 
handen.  So  können  Strings  ganz 
zwanglos  deklariert  werden: 

VAR  EINGABE:  STRING[80]; 

NAME:  STRING[16]; 

Derart  verschieden  dimensionier¬ 
te  Strings  sind  untereinander  den¬ 
noch  kompatibel,  das  heißt  sie  kön¬ 
nen  untereinander  zugewiesen  wer¬ 
den,  wobei  natürlich  eventuell 
längere  Teil  des  zugewiesenen 
Strings  abgeschnitten  wird. 

Wenn  ein  größeres  Pascal-Projekt 
nicht  ganz  in  den  begrenzten  Ar¬ 
beitsspeicher  des  Computers  paßt, 
dann  mag  das  für  andere  Program¬ 
miersprachen  ein  ernstes  Problem 
darstellen,  nicht  so  jedoch  für 
Turbo-Pascal.  Durch  das  Attribut 
OVERLAY  können  Pascal-Prozedu¬ 
ren  oder  -Funktionen  als  Overlay- 
Files  compiliert  werden.  Im  Spei¬ 
cher  wird  dann  lediglich  Platz  für 
die  längste  aller  Overlay-Prozedu- 
ren  reserviert.  Beim  Aufruf  einer 
solchen  Prozedur  oder  Funktion 
wird  das  entsprechende  Overlay- 
File  nachgeladen  und  ausgeführt. 
Insbesondere  bei  Prozeduren,  die 
nur  wenige  Male  im  Verlauf  des  Pro¬ 
gramms  aufgerufen  werden,  ist  die¬ 
se  Overlay-Technik  sehr  effektiv. 

Overlay-Technik  löst 
Speicherplatzprobleme 

Eine  bemerkenswerte  Anzahl  von 
Prozeduren  ist  zur  direkten  Manipu¬ 
lation  des  Speichers  vorgesehen. 
Es  lassen  sich  zum  Beispiel  ohne 
Schwierigkeiten  Maschinenpro¬ 
gramme  oder  andere  Programmda¬ 
teien  vom  Pascalprogramm  aus  la¬ 
den  und  starten.  Mit  einigen  Proze¬ 


duren  können  sogar  Routinen  aus 
dem  BIOS  (Basic  Input/Output  Sy¬ 
stem)  und  dem  BDOS  (Basic  Disc 
Operating  System)  von  CP/M  ange¬ 
sprungen  und  somit  das  CP/M-Be- 
triebssystem  voll  ausgenutzt  wer¬ 
den. 

Mit  den  gleichnamigen  Prozedu¬ 
ren  BIOS,  BIOSHL,  BDOS  und 
BDOSHL  lassen  sich  gezielt  Routi¬ 
nen  des  CP/M-Systems  aufrufen 
und  für  Pascal-Programme  nutzbar 
machen;  für  CP/M-Kenner  gerade¬ 
zu  ein  Leckerbissen. 

Turbo-Pascal  und 
der  C  128 

Da  Turbo-Pascal  unter  CP/M  läuft, 
ist  es  notwendig,  zunächst  CP/M  von 
der  Systemdiskette  in  Ihren  C  128  zu 
laden.  Wie  Sie  vielleicht  bereits  be¬ 
merkt  haben,  tut  dies  Ihr  C128  von 
selbst,  wenn  Sie  ihn  anschalten  und 
die  Systemdiskette  im  Diskettenlauf¬ 
werk  steckt.  Er  »bootet«  (lädt  und 
startet)  CP/M  automatisch.  Das  ist 
sowohl  mit  der  1570/1571-Floppy  als 
auch  mit  der  guten  alten  1541  mög¬ 
lich.  Von  der  Verwendung  des  1541- 
Laufwerks  kann  allerdings  nur  ab¬ 
geraten  werden.  Allein  das  Hochfah¬ 
ren  des  CP/M-Systems  benötigt  da¬ 
mit  fast  zwei  volle  Minuten.  Meldet 
sich  nun  endlich  CP/M  auf  dem  Bild¬ 
schirm,  darf  die  Diskette  mit  Turbo- 
Pascal  in  das  Floppy-Laufwerk  ge¬ 
schoben  werden.  Wenn  Sie  noch 
keine  Kopie  der  Original-Diskette 
gemacht  haben,  dann  sollten  Sie  das 
spätestens  an  dieser  Stelle  tun.  Wie 
alle  CP/M-Software  wird  auch  Tur¬ 
bo-Pascal  ohne  unnütze  Kopier¬ 
schutz-Pfuschereien  geliefert.  Dafür 
hat  jede  einzelne  Diskette  eine  Se¬ 
riennummer.  Wenn  man  sich  nach 
dem  Kauf  mit  einer  beigefügten 
Postkarte  unter  Angabe  der  Serien¬ 
nummer  als  Benutzer  registrieren 
läßt,  hat  man  die  beruhigende  Ge¬ 
wißheit,  bei  Problemen  mit  dem  Pro¬ 
dukt  nicht  allein  gelassen  zu  wer¬ 
den.  Bei  anderen  bekannten  Softwa¬ 
re-Produkten  erschöpft  sich  die  »Un¬ 
terstützung«  des  Benutzers  ja  oftmals 
mit  dem  Hinweis  »Telefonische  An- 
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fragen  können  leider  nicht  beant¬ 
wortet  werden«. 

Nachdem  man  also  jetzt  die  Origi¬ 
naldiskette  sicherheitshalber  ko¬ 
piert  hat,  kann's  endgültig  losgehen. 
Mit  DIR  listen  Sie  das  Inhaltsver¬ 
zeichnis  der  Diskette  und  können 
mehrere  Files  darauf  finden. 

TURBO.COM  ist  der  eigentliche 
Compiler,  der  die  gesamte  Arbeit 
leistet.  Er  benötigt  zirka  32  KByte 
Speicher.  TURBO.OVR  ist  die 
Overlay-Datei  zum  Turbo-System. 
TURBO.MSG  enthält  alle  Compiler- 
Meldungen  im  Klartext  und  kann  auf 
Wunsch  von  Turbo-Pascal  geladen 
werden. 

TLIST.COM  kann,  wenn  ein 
Drucker  vorhanden  ist,  den  Quell¬ 
text  Ihrer  Pascal-Programme  auf 
dem  Drucker  ausgeben.  Ein  weite¬ 
res  File  mit  dem  Namen  README 
gibt  nach  dem  Auflisten  mittels 
TYPE-Kommando  Informationen 
über  die  Implementation  von  Turbo- 
Pascal. 

Daneben  gibt  es  noch  einige  Bei- 
spielprogramme,  mit  denen  man 
herumexperimentieren  kann.  Dazu 
gehört  auch  ein  hervorragendes  Ta¬ 
bellenkalkulationsprogramm  na¬ 
mens  MC,  das  vollkommen  in  Turbo- 
Pascal  geschrieben  ist. 

Es  dauert  nun  nicht  mehr  lange, 
bis  Turbo-Pascal  endgültig  sein 
Hauptmenü  zeigt  und  dem  Program¬ 
mieren  nichts  mehr  im  Wege  steht. 

Professioneller  Texteditor 

Wem  der  Name  »Wordstar«  ein  Be¬ 
griff  ist  und  wer  eventuell  schon  da¬ 
mit  gearbeitet  hat,  der  darf  sich  freu¬ 
en.  Die  Kommandos  des  Pascal-Edi¬ 
tors  sind  mit  den  entsprechenden 
WordStar-Befehlen  identisch  und 
haben,  wenri  nicht  anders  verein¬ 
bart,  auch  die  gleiche  Tastenbele¬ 
gung.  Wer  das  WordStar-Textverar- 
beitungssystem  noch  nicht  kennt, 
wird  sich  dann  wohl  erst  einmal  mit 
dem  recht  dicken  Turbo-Pascal 
Handbuch,  Stichwort  Editor,  ver¬ 
traut  machen  müssen.  Doch  obwohl 
die  Fülle  der  Kommandos  auf  den 
ersten  Blick  überwältigend  ist 
(selbst  Block-,  Such-  und  Ersetz- 
Kommandos  sind  vorhanden),  ge¬ 
staltet  sich  das  Arbeiten  mit  dem 
Turbo-Pascal-Editor  doch  sehr  ein¬ 
fach  und  angenehm. 

Der  Cursor  wird  neben  den 
WordStar-üblichen  Control-Kom¬ 
mandos  auch  mit  den  vier  Cursorta¬ 
sten  bewegt,  die  sich  gleich  links  ne¬ 
ben  den  Funktionstasten  des  C128 
befinden.  Auch  die  INST/DEL-Taste 
hat  ihre  Funktion  behalten,  so  daß 
man  also  auch  ohne  nähere  Kennt¬ 


nisse  der  einzelnen  Editor-Komman¬ 
dos  gleich  mit  dem  Programmieren 
beginnen  kann. 

Interessant  dürfte  sein,  daß  beim 
Druck  der  Return-Taste  der  Cursor 
nicht  an  den  ganz  linken  Rand  der 
neuen  Zeile  springt.  Statt  dessen 
plaziert  er  sich  immer  unter  dem  er¬ 
sten  Wort  der  zuletzt  eingegebenen 
Zeile.  Das  Programmieren,  mit  den 
für  Pascal  so  wichtigen  Einrückun¬ 
gen  von  Zeüen,  wird  durch  diese 
kleine  Feinheit  zum  Kinderspiel. 

Der  Turbo-Compiler  besitzt  meh¬ 
rere  Funktionen  zum  Compilieren 
eines  Programms.  Mit  einem  Kom¬ 
mando  des  Hauptmenüs  läßt  sich 
ein  Untermenü  mit  den  möglichen 
Compiler-Optionen  aufrufen,  die 
das  Übersetzen  von  Quelltexten  auf 
verschiedene  Art  ermöglichen.  Je 
nachdem,  welche  Option  man  wählt, 
wird  der  Compiler  bei  Aufruf  ent¬ 
sprechend  arbeiten. 

Der  Turbo-Compiler 

Turbo-Pascal  erlaubt  es  auf 
Wunsch,  das  im  Moment  im  Spei¬ 
cher  befindliche  Quellprogramm  zu 
compilieren  und  auch  dort  wieder 
abzulegen.  Dieses  wird  dann  vom 
Hauptmenü  aus  gestartet.  So  kann 
ein  sofortiger  Test  derben  ge¬ 
schriebenen  Programms  erfolgen. 

Der  Compiler  kann  auch  ein 
Quellfile  von  Diskette  laden  und 
compilieren,  um  das  Compilat  (das 
übersetzte  Programm)  dann  als 
.COM-File  wieder  auf  Diskette  zu 
speichern.  Dieses  File  ist  später  als 
Programmfile  von  CP/M  aus,  ohne 
Hüfe  von  Turbo-Pascal,  lade-  und 
startfähig,  somit  also  ein  vollkom¬ 
men  eigenständiges  Programm. 

Schließlich  kann  der  Compiler 
auch  sogenannte  Chain-Dateien 
(Kennung  .CHN)  verarbeiten.  Diese 
Übersetzungen  haben  keine  eige¬ 
nen  Pascal-Bibliotheksroutinen  und 
sind  somit  auch  nicht  einzeln  für  sich 
lauffähig.  Sie  sind  dafür  gedacht, 
von  anderen  .COM-Pascal-Pro- 
grammen  nachgeladen  zu  werden, 
um  dort  zu  laufen. 

Der  letzte  Untermenüpunkt  mit 
dem  Namen  »Find  run-time  error«  ist 
ein  gutes  Hilfsmittel  zum  Aufspüren 
von  Laufzeitfehlern.  Laufzeitfehler 
sind  Fehler,  die  der  Compiler  nicht 
erkennen  kann,  da  sie  erst  beim  Ab¬ 
lauf  des  compilierten  Programms 
auftreten.  In  diesem  Falle  unter¬ 
bricht  das  Programm  und  gibt  eine 
entsprechende  Fehlermeldung  und 
die  Stelle  aus,  an  der  der  Fehler  auf¬ 
getreten  ist.  Nun  besteht  ein  Compi¬ 
lat  nicht  mehr  aus  den  Pascalbefeh¬ 
len,  die  man  im  Quelltext  eingetippt 


hat,  sondern  aus  Maschinencode. 
Die  angezeigte  Stelle  eines  Fehlers 
ist  deshalb  eine  Hexadresse.  Mit 
dieser  Adresse  kann  man  den  Lauf¬ 
fehler  im  Quellprogramm  jedoch 
bequem  wiederfinden.  Dazu  muß 
das  Quellprogramm  noch  einmal 
von  Turbo-Pascal  geladen  werden. 
Ein  Aufruf  der  oben  genannten 
Fmd-Option  und  die  Angabe  der 
besagten  Hexadresse  genügen, 
und  der  Editor  führt  Sie  automatisch 
an  die  Fehlerquelle.  Eine  praktische 
Sache. 

Doch  bevor  ein  Laufzeitfehler  auf¬ 
treten  kann  (man  will  es  nicht  hof¬ 
fen),  muß  man  sein  Quellprogramm 
selbstverständlich  erst  compilieren 
lassen. 

Mit  der  Wahl  »C«  im  Hauptmenü 
startet  der  Compiler  und  compiliert 
je  nach  eingestellter  Compiler-Op¬ 
tion  aus  eben  besprochenem  Unter¬ 
menü.  Die  Fehlerbehandlung  wäh¬ 
rend  der  Übersetzung  geschieht  bei 
Turbo-Pascal  auf' sehr  interessante 
und  effektive  Weise.  Hat  der  Compi¬ 
ler  einen  Fehler  gefunden,  den  er 
nicht  akzeptieren  kann,  läßt  er  eine 
entsprechende  Fehlermeldung  auf 
dem  Bildschirm  erscheinen.  Falls 
man  die  Fehlermeldungen  beim 
Start  von  Turbo-Pascal  nicht  gela¬ 
den  hat,  wird  nur  die  Fehlernummer 
ausgegeben,  deren  Bedeutung  im 
Handbuch  nachzulesen  ist.  Der 
Übersetzungsvorgang  wird  ge¬ 
stoppt  und  ein  Druck  auf  die  Esca- 
pe-Taste  (ganz  links  oben  auf  der  Ta¬ 
statur)  wird  erwartet. 

Folgt  man  dieser  Aufforderung, 
startet  der  Editor  automatisch  und 
postiert  den  Cursor  ähnlich  wie  bei 
der  Laufzeitfehlerbehandlung  an 
die  fehlerhafte  Programmstelle.  Ei¬ 
ne  überaus  effektive  Fehlersuche  ist 
damit  gewährleistet,  die  man  bald 
nicht  mehr  missen  möchte. 

Schnell,  schneller, 

turbo  ... 

Eine  Auflistung  des  Programmes 
während  der  Compilation  ist  nicht 
möglich.  Sie  würde  die  Übersetzung 
nur  unnötig  verlangsamen. 

Denn  der  Name  »TURBO«  hält, 
was  er  beim  Lesen  verspricht. 
Turbo-Pascal  erledigt  seine  Aufga¬ 
be  in  Windeseüe  und  erzeugt  ein 
Compilat  mit  ebensolchen  Eigen¬ 
schaften. 

Wenn  ein  C  64-Besitzer  diese  Ge¬ 
schwindigkeiten  bestaunt,  sollte  er 
aber  selbstverständlich  daran  den¬ 
ken,  daß  die  Taktfrequenz  des  Z80- 
Prozessors  im  C  128  doppelt  so  hoch 
wie  die  des  6510  ist  und  der  Compu- 
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ter  somit  auch  um  einiges  schneller 
arbeiten  kann.  Leider  ist  sie  aber 
(effektiv)  wiederum  nur  wenig  mehr 
als  halb  so  hoch  wie  bei  anderen 
Z80-Computern,  was  bedeutet,  daß 
Turbo-Pascal  auf  anderen  CP/M-Sy- 
stemen  noch  schneller  ist. 

Trotzdem  muß  man  sagen,  daß 
Turbo-Pascal  der  schnellste  derzeit 
für  den  C  128  verfügbare  Pascal- 
Compiler  ist. 

Ein  Benchmark-Programm,  in 
dem  eine  Integer-Variable  von  0  bis 
2000  hochgezählt  wurde,  ergab  bei 
der  Ausführung  einen  Zeitbedarf 
von  nur  0,4  Sekunden  (zum  Ver¬ 
gleich:  Profi-Pascal  1,0  Sekunden; 
Oxford-Pascal  2,3  Sekunden). 

Betrachtet  man  diese  Zeiten,  so 
wird  es  klar,  daß  Turbo-Pascal  ein¬ 
deutig  der  schnellste  Compiler  ist. 
Die  Arbeitsgeschwindigkeit  von 
Turbo-Pascal  zeigt,  was  ein  Z80-Pro- 
zessor  alles  vermag.  Ein  kleiner  An¬ 
stoß  vielleicht  für  manchen  Interes¬ 
sierten,  den  Z80  näher  kennenler¬ 
nen  zu  wollen.  Ganz  sicher  aber  ein 
gutes  Argument  für  die  Qualität  von 
Turbo-Pascal.  (M.Thomas/ev) 


Info:  Turbo-Pascal  ist  ein  eingetragenes  Warenzeichen  von 
Borland  International.  Vertrieb  in  Deutschland:  Heimsoeth 
Software,  Fraunhoferstr.  13,  8000  München  5,  Preis  225 
Mark. 


Was  uns  gefiel 

—  Sicherheitskopie  kann  vom  Be¬ 
sitzer  angefertigt  werden 

—  Editor  mit  den  Qualitäten  eines 
Textverarbeitungssystems 

—  Editor-Kommandos  WordStar- 
kompatibel 

—  Extrem  schneller  Compila¬ 
tions-Vorgang 

—  Hohe  Geschwindigkeit  des 
übersetzten  Programms 

—  Sehr  komfortable  Fehlerkor¬ 
rektur 

—  Einbindung  von  Maschinen¬ 
sprache  möglich 

—  Automatische  Overlay-Technik 

—  Hoher  Bedienungskomfort  und 
hohe  Bediensicherheit 

—  Wirth-Standard  wird  unter¬ 
stützt 

—  Viele  sinnvolle,  zusätzliche 
Standardprozeduren  und  Funk¬ 
tionen 

—  Standardtyp  String  mit  entspre¬ 
chenden  Funktionen  implemen¬ 
tiert 

—  Direkter  Zugriff  auf  CP/M-Sy- 
stem-Ebene  und  CPU-Register 


—  Hohe  Genauigkeit  bei  reellen 
Zahlen  (11  Stellen) 

—  Hoher  Programmierkomfort 
durch  viele  Compiler-Optionen 

—  Automatisches  Finden  von 
Laufzeit-Fehlern 

—  Systemmeldungen  editierbar 

—  Ausführliches,  gut  verständli¬ 
ches  Handbuch 

—  Sinnvolles,  größeres  Beispiel¬ 
programm  im  Lieferumfang 

—  Unterstützung  der  Turbo-Pas- 
cal-Käufer  durch  den  Hersteller 

—  Gemessen  an  der  Leistung, 
sehr  preiswert 

Was  uns  nicht  gefiel 

—  Handbuch  im  Taschenbuch¬ 
format  wird  intensive  Benutzung 
nicht  überstellen 

—  Kein  Compilerprotokoll  auf 
Drucker  möglich 

Die  Testergebnisse: 

Ausführung 

Compilation  m.  Ausg.  o.  Ausg. 

Oxford-Pascal  3,7  sec  34,7  sec  2,3  sec 
Profi-Pascal  24.8  sec  (Disk)  25,1  sec  1,0  sec 
Turbo-Pascal  0,5  sec  30,6  sec  0,4  sec 


Doppelte  Grafikauflösung  f ür  C  1 28 

Ein  kleines  Maschinenprogramm  macht  dem  80-Zeichen-Videocontroller 
des  C  128  Beine  und  bringt  eine  Grafikauflösung  von  640  x  200  Punkten. 


Wie  Sie  als  stolzer  C  128-Besit- 
zer  vielleicht  wissen,  besitzt 
Ihr  Computer  zwei  Arten  der 
Zeichendarstellung.  Die  üblichen  40 
Zeichen  pro  Zeile  und  den  80-Zei- 
chen-Bildschirm. 

Schalten  Sie  auf  80  Zeichen  um,  so 
übernimmt  ein  anderer  Video-Chip 
die  Arbeit  des  uns  vom  C  64  her  be¬ 
kannten  VIC  II  und  zaubert  ein 
80-Zeichen-Feature  auf  den  Bild¬ 
schirm.  Sehen  können  Sie  dabei  al¬ 
lerdings  nur  etwas,  wenn  Sie  auch 
einen  Monitor  an  der  RGB-Buchse 
des  C  128  angeschlossen  haben, 
denn  nur  dort  sind  80  Zeichen  pro 
Zeile  möglich.  Der  8563-Videocon- 
troller  sorgt  in  diesem  Modus  für  ein 
anständiges  Bild. 

Doch  er  kann  noch  mehr.  Neben 
Buchstaben  und  Zahlen  ausgeben 
ist  er  fähig,  Punktgrafik  zu  erzeugen, 
und  das  in  doppelter  Auflösung,  also 
statt  mit  den  bekannten  320  mal  200 
Punkten  nun  640  mal  200  Punkte.  Sie 


haben  richtig  gelesen.  Das  sind  ins¬ 
gesamt  128000  Bildpunkte,  die  ein¬ 
zeln  ansprechbar  sind.  Prima,  wer¬ 
den  Sie  sagen,  der  C  128  hat  ja  die 
vielen  tollen  Grafikbefehle  ...  Doch 
halt  !  Die  Freude  ist  ein  wenig  ver¬ 
früht.  Die  doppelte  Auflösung  des 
8563  wird  nämlich  unverständlicher- 
weise  von  diesen  Basic-Befehlen 
nicht  ausgenutzt.  Die  ganzen  fantasti¬ 
schen  Grafikbefehle  des  C  128  spre¬ 
chen  nur  die  vom  C  64  bekannte  320 
x  200  Punkte-Grafik  an,  Warum  das 
so  ist,  das  weiß  nur  Commodore  al¬ 
lein. 

Auch  der  Versuch,  die  Punkte  ein¬ 
fach  in  den  Grafikspeicher  des  8563 
zu  POKEn  wird  fehlschlagen,  denn 
dieser  Grafikspeicher  ist  vom  Pro¬ 
zessor  aus  nicht  ansprechbar.  Der 
Videocontroller  8563  steht  nämlich 
im  Genuß  eines  eigenen  Zeichen¬ 
speichers  von  16  KByte,  der  nicht  im 
normalen  Adreßbereich  liegt  und 
nur  ihm  selbst  zugänglich  ist. 


Doch  ganz  so  eigenständig  ist  der 
VDC  8563  nun  auch  nicht.  Es  muß 
selbstverständlich  ein  Informations¬ 
austausch  zwischen  Videoprozes¬ 
sor  und  dem  übrigen  Computer 
stattfinden  können.  Den  gibt  es  na¬ 
türlich  auch. 

Die  Verbindung  besteht  aller¬ 
dings  nur  aus  2  Byte  im  In¬ 
put/Output-Bereich  mit  den  Adres¬ 
sen  $D600  und  $D601.  Durch  sie  hin¬ 
durch  drängt  sich  der  gesamte  In¬ 
formationsverkehr  von  VDC  8563 
und  Computer. 

Denn  der  VDC  8563  muß  viel  wis¬ 
sen,  wenn  er  ein  ordentliches  Bild 
erzeugen  will.  Da  er  nur  seinen  »Pri¬ 
vatspeicher«  von  16  KByte  kennt, 
kann  er  auf  den  Zeichengenerator 
nicht  direkt  zugreifen.  Damit  er  trotz¬ 
dem  die  Zeichen  erzeugen  kann, 
wird  er  beim  Anschalten  des  Com¬ 
puters  mit  den  nötigen  Bytes  aus 
dem  Zeichengenerator  über  den 
Engpaß  $D600/$D601  gefüttert. 


8ne.de 
64er^ö  ii1me.net 
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Bild  1.  Die  Register  des  VDC  8563 


100  BANK  15 

110  SYS  DECfKOO")  :  REM  ***  GRAFIK  EINSCHALTEN 
120  SYS  DEC("H06")  :  REM  •**  BILDSCHIRM  LÖSCHEN 
130  FO«  X  =  0  TO  639 

HO  Y*SIN(X/100)  :  REM  ***  SINUSWERT  BERECHNEN 

150  Y*99*Y+100  :  REM  ***  WERT  AN  BILDSCHIRMAUSGABE  ANPASSEN 

160  SYS  DECC'KOF“),  INT(X/256>,  X  AND  255,  Y 
170  NEXT  X 

180  SYS  DEC("H03")  :  REM  ***  TEXT  EINSCHALTEN 

190  SYS  DEC("K09“)  :  REM  ***  ZEICHENSATZ  NEU  LADEN,  EDITOR  INITIALISIEREN 


Listing  2.  Eine  Demonstration  der  hochauflösenden  80-Zeichen-Grafik 


Dies  geschieht  übrigens  auch,  wenn 
Sie  mit  der  ASCII/DIN-Taste  auf  den 
anderen  Zeichensatz  umschalten. 
Die  erhaltenen  Zeichen  legt  er  in 
seinem  RAM  ab,  damit  er  nun  darauf 
zugreifen  kann. 

Die  Aufteilung  seines  Speichers 
sieht  dann  folgendermaßen  aus: 

2  KByte  Zeichen 
2  KByte  Zeichenattribute 
4  KByte  Zeichendefinitionen 
8  KByte  liegen  brach 

Diese  Konfiguration  gilt  für  den 
Textmodus  des  8563.  Doch  wehe, 
man  setzt  im  Register  25  das  Bi:  für 
den  Grafikmodus,  dann  läßt  der 
VDC  8563  Zeichen  Zeichen  sein  und 
bearbeitet  seine  16  KByte  im  »Bit- 
mapping«-Modus.  Das  heißt  für  je¬ 
des  gesetzte  Bit  läßt  er  einen  Punkt 
auf  dem  Monitor  leuchten,  für  jedes 
ungesetzte  Bit  eben  nicht.  Sein  ge¬ 
samter  Speicher  ist  nun  Grafikspei¬ 
cher. 

16  KByte  RAM  mal  8  Bit  ergibt 
nach  sorgfältigem  Rechnen  genau 
128000  Bit,  was  in  unserem  Falle 
128000  ansteuerbare  Bildpunkte  be¬ 
deutet.  Doch  wie,  werden  Sie  fra¬ 
gen,  kann  man  durch  nur  2  Byte 
($D600/$D601)  die  Register  des 
VDC  8563  oder  gar  seinen  Speicher 
manipulieren?  Die  Antwort  ist  ganz 
einfach:  Sie  lautet  indirekte  Adres¬ 
sierung. 

In  das  erste  Verbindungsbyte 
($D600)  schreibt  man  die  Nummer 
des  Registers,  das  man  ansprechen 
wül  (der  VDC  8563  hat  deren  31).  Da¬ 
nach  liest  man  den  Wert  des  ange¬ 
steuerten  Registers  über  das  zweite 
Byte  ($D601),  oder  man  schreibt  den 
gewünschten  Wert  hinein.  Eine  ein¬ 
fache  Sache. 

Wie  aber  kann  nun  der  16-KByte- 
Speicher  des  Videocontrollers  ma¬ 
nipuliert  werden? 

Der  8563  besitzt  mehrere  Register, 
von  denen  einige  Informationen 
über  die  Speicheraufteilung  der  16 
KByte  geben  (Bild  1). 

So  gibt  es  Register,  die  beispiels¬ 
weise  die  Startadresse  des  80-Zei- 
chen-Speichers  enthalten.  In  den 
Registern  18  und  19  ist  nun  eine  ak¬ 
tuelle  Adresse  des  Videospeichers 
abgelegt,  dessen  Wert  gerade  be¬ 
arbeitet  werden  soll.  Und  Register 
31  hält  den  Inhalt  dieser  Adresse  be¬ 
reit. 

Man  muß  also  nach  obengenann¬ 
tem  Schema  die  Register  18  und  19 
(HI/LO)  mit  der  Adresse  des  Video¬ 
speichers  belegen,  die  man  anspre¬ 
chen  wül,  und  kann  dann  den  Inhalt 
dieser  Adresse  über  das  Register  31 
auslesen  oder  sie  mit  dem  ge¬ 
wünschten  Wert  beschreiben. 

34  Q3tä? 


Um  Ihnen  den  Aufwand  zu  erspa¬ 
ren,  ein  eigenes  Programm  schrei¬ 
ben  zu  müssen,  das  die  Grafik  des 
8563  ausnutzt,  haben  wir  ein  Assem- 
blerlisting  (Listing  1)  dazu  abge¬ 
druckt.  Es  stammt  aus  dem  Commo- 
dore  128-Handbuch  von  Peter  Ro¬ 
senbeck  (Markt  &  Technik-Verlag). 
Sie  können  dieses  Programm  direkt 
mit  dem  in  den  C  128  integrierten 
Maschinensprache-Monitor  einge¬ 
ben. 

Es  übernimmt  die  Arbeit  der  ge¬ 
rade  erwähnten  Prozedur  der  indi¬ 
rekten  Adressierung  des  VDC  8563 
und  bietet  auch  eine  Routine  zum 
Punkte  setzen  und  löschen.  Ein  un¬ 
entbehrliches  Werkzeug  für  die  Ar¬ 


beit  mit  der  640  mal  200  Pnnkte-Gra- 
fik  auf  dem  80-Zeichenbildschirm. 

Die  einzelnen  Routinen  können 
über  den  SYS-Befehl  angesprochen 
werden,  wie  es  das  kleine  Basic- 
Beispielprogramm  (Listing  2)  zeigt. 
Die  X-  und  Y-Koordinaten  werden 
einfach  mit  dem  SYS-Befehl  überge¬ 
ben  (Zeile  160).  Das  Beispielpro¬ 
gramm  erzeugt  eine  Sinuskurve  auf 
dem  Monitor. 

Wer  Spaß  daran  hat,  kann  sich 
weitere  Routinen  (zum  Beispiel  zum 
Linien  ziehen)  dazuschreiben  und 
somit  die  Grafikfähigkeiten  des 
VDC  8563  voll  ausnutzen. 

(M.Thomas/ev) 

Ausgabe  n/Novei^e5r$?£cle 
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Grafik 


1400  4o  le  14  Jrnp  $l4le  ; Grafikmodus  anschalten 

1479  48  pha  jA  retten 

I4e3  eO  80  cpx  #$80  jLO  von  X-Koord.  zu  groß? 

1401  4c  26  14  jmp  $1426  jGraf ikmodus  elnsohalten 

147a  a9  lf  lda  #$lf  jRegister  31 

I4e5  10  4d  bpi  $1534  jwenn  ja,  keine 

1406  4c  87  14  jmp  $1487  ;Grafikbildschirm  löschen 

147c  8d  00  d6  sta  $d600  jansteuern 

Adreßberechnung 

1409  4c  62  ff  jmp  Sff62  ;2eichensBtz  neu  laden 

l47f  20  45  14  Jsr  $1445  j testen  auf  Statusbit 

l4e7  cO  c8  cpy  #$c8  jY-Koord.  zu  groß? 

140c  4c  81  ff  jmp  $ff81  ; Editor  Initialisieren 

1482  68  plo  ;A  wieder  holen 

I4e9  bO  49  bcs  $1534  jwenn  ja,  dann  keine 

l40f  4c  al  14  jmp  $14a3  ; Punkt  setzen 

1483  8d  01  d6  sta  Sd601  jin  aktuelle  Adr.  speichern 

Adreßberechnung 

1412  4c  9d  14  jmp  $l49d  j Punkt  löschen 

1486  60  rts 

l4eb  48  pha  jHI  X-Koord.  retten 

1415  4c  ??  ??  jmp  $????  jfrei  für  Erweiterungen 

l4ec  8a  txa  jLO  X-Koord. 

1418  4c  ??  ??  jmp  $????  jfrel  für  Erweiterungen 

Wed  48  pha  ;  retten 

l4lb  4c  ??  ??  jmp  $????  ; frei  fOr  Erweiterungen 

(Bildschirm  löschen 

l4ee  98  tya 

l4ef  29  Of  and  #S0f 

iGraflkmodus  anschalten 

1487  a2  00  ldx  #$00  ;HI  Adresse  von  Bildschirm  ln  X 

l4fl  aa  tax 

1489  aO  00  ldy  #$00  jLO  Adresse  ln  Y 

l4f2  bd  40  15  lda  $1540,xjLO-Uert  aus  Tabelle  1 

l4le  a9  80  Ida  #$80  ;Bit  7  setzen 

148b  20  2e  14  Jsr  Sl42e  j aktuelle  Adresse  setzen 

I4f5  85  cl  sta  $cl  jablegen 

1420  a2  19  ldx  #$19  ;  Register  25 

l48e  20  51  14  Jsr  $1451  jUortzähler  Null  setzen 

I4f7  bd  50  15  lda  $1550,xjKI-Wert  aus  Tabelle  2 

1422  20  ce  cd  jsr  $odce  ; Register  25  mit 

1491  20  5f  14  Jsr  $l45f  j Datenbyte  Mull  setzen 

l4fa  85  c2  sta  $c2  jablegen 

$80  besetzen 

1494  c8  lny  ; nächste  Adresse 

l4fc  98  tya 

1425  60  rts 

1495  dO  f4  bne  Sl48b 

l4fd  29  fO  and  #$f0 

1497  e8  lnx 

l4ff  4a  lsr 

jGrafikmodus  aussenalten 

1498  eO  40  cpx  #$40  j  letzte  Adresse  von  Bildschirm? 

1500  4a  lsr 

149a  dO  ef  bnc  $l48b  jnein,  dann  nächste  Adresse 

1501  4a  lsr 

1426  a9  40  lda  #$40  ;8it  6  setzen 

149c  60  rts 

1502  4a  lsr 

1428  a2  19  ldx  #$19  ;  Register  25 

1503  aa  tax 

142a  20  cc  cd  jsr  $cdcc  jRegister  25  mit 

j Punkt  löschen 

1504  bd  60  15  lda  $1560,x;HI-Uert  aus  Tabelle  3 

$40  besetzen 

1507  18  clc 

142Ö  60  rts 

l49d  48  pha  jA  retten 

1508  65  e2  ade  $c2  ; dazuzählen 

l49e  a9  00  lda  #$00  jFlag  fOr  Löschen 

150a  85  c2  sta  Sc2 

; aktuelle  Adresse  setzen  (in  X  und  Y) 

I4a0  4c  a6  14  jmp  $l4a6  ; Punkt  löschen 

150c  68  pla 

150d  aa  tax 

142e  a9  12  lda  #$12  jRegister  18 

; Punkt  setzen 

150e  68  pla 

1410  8d  00  d6  sta  $d600  j ansteuern 

150f  a8  tay 

1411  8e  01  d6  stx  $d601  ;HI  von  Adresse  nach  Reg.  18 

l4a3  43  pha  ;A  retten 

1510  b9  70  15  lda  $1570,y;L0-Wert  aus  Tabelle  4 

1416  20  45  14  jsr  $1445  j Harten  auf  Statusbit 

l4a4  a9  ff  lda  #Sff  Flag  für  Setzen 

1513  18  clc 

1439  a9  13  lda  #513  jRegister  19 

l4a6  85  c3  sta  $c3  ; Zwischenspeichern 

1514  65  cl  ade  $cl  j dazuzählen 

141b  8d  00  d6  sta  Sd600  jansteuem 

l4aB  63  pla  ;A  wieder  holen 

1516  85  cl  sta  $cl 

141c  8c  01  d6  sty  Sd601  ;L0  von  Adresse 

l4a9  20  db  14  Jsr  $l4db  jAdressberechnung 

1518  90  02  bec  $151o 

nach  Reg.  19 

(X-Koord.  in  A,X 

151a  e6  c2  ine  $c2 

1441  20  45  14  jsr  $1445  ; Harten  auf  Statusbit 

j  Y-Koora.  in  Y) 

151c  8a  txa 

1444  60  rts 

l4ae  bO  ee  bcs  $l49c  jAr, gaben  außerhalb 

151d  29  f8  and  #$f8 

des  Bereichs 

151f  4a  lsr 

j '-'arten  bis  Statusbit  gesetzt 

14ae  85  c4  sta  Sc4  jBitmaste  (in  Ai 

1520  4a  lsr 

Zwischenspeichern 

1521  4a  lsr 

1445  2c  00  d6  bit  $d600  ;Bit  7  (Status)  gesetzt 

l4b0  a4  cl  ldy  $ci  jLO  Adresse  nach  Y 

1522  18  clc 

1448  10  fb  bpi  $1445  jnein,  dann  warte 

I4b2  a6  c2  ldx  Sc2  jHI  Adresse  nach  X 

1523  65  cl  ade  $cl 

144a  60  rts 

I4b4  20  2e  14  jsr  $l42e  j aktuelle  Adresse 

1525  85  cl  sta  $cl 

(in  X/Y)  setzen 

1527  90  02  bcc  $152b 

jWarten  bis  Statusbit  gelöscht 

I4b7  20  6d  14  jsr  $146d  jDatenbype  aus  aktueller 

1529  e6  c2  inc  $c2 

Adr.  nach  A  holen 

152b  8a  txa 

144b  2c  00  d6  bit  Sd600  ;Bit  7  (Status)  gelöscht 

l4ba  48  pha  j retten 

152c  29  07  and  #$07 

l44e  30  bmi  $l44b  jnein,  dann  warten 

l4bb  a5  c3  lda  $c3  jFlag  für  setzen/löschen 

152e  aa  tax 

1450  60  rts 

nach  Adr.  fO  06 

152 f  bd  73  15  lda  $1573,x;Bitmaske  aus  Tabelle  5 

l4bd  fO  06  beq  $l4c5  jPunkt  löschen,  dann 

1532  18  clc  j  holen 

jW'ortzShler  Mull  setzen 

zu  Löschen 

1533  60  rts 

I4bf  68  pla  j Datenbyte  wieder  holen 

1534  38  sec 

1451  a9  le  lda  #$le  jRegister  30 

I4c0  05  c4  ora  $c4  jnit  Bitcaske  verknüpfen 

1535  60  rts 

1453  8d  00  d6  sta  $d600  jansteuern 

(Bit  setzen) 

1456  20  45  14  jsr  S1445  jWarten  auf  Statusbit 

l4c2  4c  ce  14  Jmp  $l4ce  jzun  Abspeiehern 

jTabellen  für  Adreßberechnung 

1459  a9  00  lda  #$00  jRegister  30 

I4e5  68  pla  jDatenbyte  wieder  holen 

145b  8d  01  d6  sta  $d601  jNull  setzen 

I4c6  85  c3  sta  $c3  ;  Zwischenspeichern 

Tabelle  1 

l45e  60  rts 

l4e8  a5  c4  lda  $c4  jBitraaake  nach  A 

l4ca  49  ff  eor  #$ff  jalle  Bits  umdrehen 

1540  00  50  aO  fO  40  90  eO  30 

jDatcnbytc  Null  setzen 

l4ee  25  e3  and  Sc3  jmit  Datenbyte  verknüpfen 

1548  80  dO  20  70  cO  10  60  bO 

(löschen) 

l45f  a9  lf  lda  #$lf  jRegister  31 

I4ce  48  pha  j neues  Datenbyte  retten 

Tabelle  2 

1461  8d  00  d6  sta  $d600  jansteuern 

l4cf  a4  cl  ldy  $cl  ;L0  Adresse  nach  Y 

1464  20  45  14  Jsr  $1445  ; '-'arten  auf  Statusbit 

14dl  a6  c2  ldx  Sc2  jHI  Adressenach  X 

1550  00  00  00  00  01  01  01  02 

1467  a9  00  lda  #0  jRegister  31 

l4d3  20  2e  14  Jsr  S142e  jaktuellc  Adresse  setzen 

1558  02  02  03  03  03  04  04  04 

1469  8d  01  d6  sta  $d601  jNull  setzen 

14d6  68  pla  ; neues  Datenbyte  wieder  holen 

146c  60  rts 

l4d7  20  79  14  Jsr  $1479  jDatenbyte  ln  aktueller 

Tabelle  3 

Adr.  ablegen 

;Dfttenbytc  nach  A  holen 

1560  00  05  0a  Of  14  19  le  23 

l4da  60  rts 

1568  28  2d  32  37  3c  4l  46  00 

I46d  a9  lf  lda  #$lf  (Register  31 

146 f  8d  00  d6  sta  Sd600  jansteuern 

(Adresse  bereennen  (X-Koord.  in  A/X;  Y-Xoord.  in  Y) 

Tabelle  4 

1472  20  45  14  Jsr  $1445  ;Harten  auf  Statusbit 

jAdresse  nach  $Cl/$C2j  Bitmaske  nach  A 

1475  ad  01  d6  lda  $d601  jByte  nach  A  holen 

1570  00  20  40 

1478  60  rts 

I4db  c9  03  emp  #$03  jA  größer  gleich  3? 

l4dd  bO  55  bcs.  $1534  jwenn  ja,  dann  ord.  zu  groß 

Tabelle  5  (Bitmasken) 

j Datenbyte  (in  A)  in  aktuelle  Adresse 

14df  c9  02  emp  #$02  ;A  kleiner  2? 

jablegen 

I4el  dO  04  bne  $l4e7  jwenn  ja,  dann  X-Koord.  ok 

.!  1573  80  40  20  10  08  04  02  Ol 

Listing  1.  Assemblerprogramm  zur  Nutzung  der  verborgenen  Grafikfähigkeiten  des  C  128 
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Hardware-Test 


Epson  JX-80  — 
Das  vielfältige 
Druck-Genie 

Jetzt  kommt  Farbe  auf  das  Papier.  Der 
JX-80  ergänzt  einen  Farbcomputer  wie 
den  C  64  in  beinahe  idealer  Weise. 


Bild  1 .  Epson  JX-80  —  der  Regenbogendrucker 


Jeder,  der  sich  auf  die  Suche 
nach  einem  universell  ersetz¬ 
baren  Drucker  macht,  sollte  den 
Gedanken  an  einen  Faxbdiucker 
nicht  sofort  beiseite  schieben.  Der 
JX-80  (Bild  1)  ist  eine  direkte  Weiter¬ 
entwicklung  der  Epson  FX-Klasse, 
die  seit  Jahren  den  Druckermarkt 
maßgeblich  prägt.  Zu  diesem  Erfolg 
führten  die  fast  nicht  überschauba¬ 
ren  Möglichkeiten  dieser  Drucker 
und  ihre  einfache  Ansteuerbarkeit. 
Die  Vielfalt  umfaßt  nicht  nur  neun  in¬ 
ternationale  Zeichensätze  oder  ei¬ 
nen  definierbaren  Zeichensatz,  son¬ 
dern  auch  vielfältige  Möglichkeiten 
der  optischen  Darstellung  (Bild  2 
und  3).  Der  JX-80  beherrscht  diese 
Fähigkeiten  in  gleicher  Weise  wie 
der  FX-80,  er  unterscheidet  sich  le¬ 
diglich  durch  einen  etwas  anderen 
Druckmechanismus  und  die  Befeh¬ 
le  zur  Farbsteuerung.  Dabei  ist  der 
JX-80,  wie  man  im  täglichen  Betrieb 
feststellen  wird,  problemlos  zu  steu¬ 
ern.  Selbst  der  Mischbetrieb  ver¬ 
schiedener  Modi  ist  ohne  Schwie¬ 
rigkeiten  durchzuführen. 

Doch  wer  glaubt,  nun  seien  die 
Möglichkeiten  der  Programmie¬ 
rung  erschöpft,  sieht  sich  getäuscht. 
Eine  große  Zahl  von  Formatanwei¬ 
sungen  sind  einsetzbar.  So  kann  der 
linke  und  der  rechte  Rand  gewählt 
werden.  Vertikale  und  horizontale 
Tabulatoren  und  auch  das  Ansprin¬ 
gen  der  Tabulatoren  im  Text,  wird 
mittels  ESC-Befehlen  möglich.  Die 
Seitenlange  ist  in  Zeilen  oder  Inch 


wählbar  und  der  Zeilenabstand  ist 
fast  stufenlos  einzustellen.  Der  soge¬ 
nannte  Bit-Image-Modus  ist  das  Ge¬ 
heimnis  der  hochauflösenden  Gra¬ 
fik  des  JX-80.  Mit  normaler,  doppel¬ 
ter,  und  sogar  vierfacher  Dichte 
kann  der  JX-80  Grafik  darstellen  — 
und  das  in  Farbe.  Dabei  variiert  die 
Anzahl  der  Punkte  je  Zeile  zwischen 
480  und  1920. 

Nun  ist  eine  Vielzahl  an  Variatio¬ 
nen  aufgezählt,  doch  der  Gipfel  der 
Möglichkeiten  ist  noch  nicht  ganz  er¬ 
reicht.  Dank  des  Farbmodus  und 
des  Farbbandes  mit  d-  n  Farben 
Schwarz,  Rot,  Blau  und  Grün  sind 


diese  Farben  und  alle  durch  Dop¬ 
peldruck  erreichbaren  Kombinatio¬ 
nen  möglich.  Eine  spezielle  Druck¬ 
logik  verhindert,  daß  Mischfarben 
überproportional  stark  gegenüber 
den  reinen  Farben  betont  werden. 
Auch  zur  Steuerung  der  Farben 
wurden  die  ESC-Befehle  konse¬ 
quent  verwendet.  Eine  der  reizvoll¬ 
sten  Anwendungen  eines  Farb¬ 
druckers  ist  es,  den  Bildschirm  mit 
allen  seinen  Farben  auszudrucken 
(Bild  4).  Wenn  jedes  selbsterstellte 
farbige  Kunstwerk  (zum  Beispiel  mit 
dem  Koala  Painter)  bislang  auf  dem 
Drucker  ein  eher  graues  Dasem 


Der  JX  SO  ist  ein  Alleskönner,  der  außer  NLQ  keine 
Wünsche  offen  läßt.  Ob  Brei  t  e  er  h  r~  i  t  t  , 
oder  Schialschrift,  ofc>  Sup“r-  «=»0-.^-  SLlfc>mc;;r_  ±  -  es 

gibt  nichts,  das  er  nicht  kann.  Auch  Doppeldruck 
in  breit  und  unterstreichen  ist  möglich. 

Soll  etwas  herausgestellt  werden,  so  kann  dies  in 
Kursivschrift  geschehen . 

Bild  3.  Die  Schriften  des  JX-80  -  es  fehlt  nur  noch  die  NLQ-Schrift 


Name  des  Druckers 
Schriftarten 

Geschwindigkeit 

NLQ-Schrift 

U  nterstreichen 

Zeichenmatrix 

Papierarten 

Spaltenbreite  v-b 

Selbsttest 

Schnittstellen 

Pufferspeicher 

Rückwärtstransp. 

Grafikmodi 

Sonderfunktionen 

F unktionstasten 

Ausstattung 


Technische  Daten 

:  Epson  JX-80 

:  Elite,  Fett,  Breit,  Schmal,  Doppeldruck,  Hoch-/Tiefgestellt, 
Unidirektional 

angegeben:160  Z/s;  gemessen:158  Z/s;  Probetext:  1:58 

Nein  NLQ-Geschw. :  entfällt 

Ja  Proportional.  :  Ja 

11  x  9  Zeichenvorrat :  96  ASCII,  International 

EinzelVEndlos  Durchschläge  :  2 

0  bis  137  Papierbreite  :  bis  254  mm 

Ja  Hexdump:  Ja  Automatischer  Einzelbl.Einz.:  Nein 

Centronics,  wahlweise  RS232C,  IEEE  488 

2  KByte  Ladbarer  Zeichens.:  Ja 

Nein  Hor.Tab.:  Ja  Ver.Tab.:  Ja 

480  bis  1920  Punkte  pro  Zeile 

Befehle  zur  Farbsteuerung 

On-Line,  FF,  LF 

Farbband,  Handbuch  englisch,  Papierseparator 


Aa 

Bild  2.  Der  fünffach  vergrößerte 
Buchstabe  A  der  Normalschrift 
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C  64 


1  PI  RFM  UCCCCCCC  C  C  C  C  C  C  C  C  C  C  C  C  C  C.C.C.C.C.C.I. 

<096> 

118 

DATA 

A5 , 8D , 20 , DD , ED , 20 , 4E , 1 0 , A2 , 07 

<23B> 

11  REM  BFARBIGE  HARDCOPY  VON  KOALAÜ 

<072> 

119 

DATA 

A9, 00, 95, A4, CA, 10 , FB , A0 , 07 , Bl 

<228> 

12  REM  £PA INTER-BILDERN  AUF  JX-80Ü 

<204> 

120 

DATA 

FB , 85 , BE , A2 , 07 , A5 , BE , 3D , 27 ,10 

<  1 78  > 

13  REM  B- 

- ü 

<07B> 

121 

DATA 

F0,07,B5,A4, 19,2E, 10,95, A4, CA 

<044  > 

14  REM  £ 

ü 

<  002  > 

122 

DATA 

10,EF,88, 10, E6,A5,FB, 18,69,08 

<094> 

15  REM  £ 

WRITTEN  BY:  ü 

<037> 

123 

DATA 

85 , FB , 90 , 02 , E6 , FC , A2 , 07 , B5 , A4 

<  1 20  > 

16  REM  £ 

ü 

<004> 

124 

DATA 

20 , DD , ED , CA , 1 0 , F8 , C6 , FD , D0 , C2 

<06 1  > 

17  REM  £ 

MICHAEL  BOERNER  ü 

<  204  > 

125 

DATA 

A9 , 0D , 20 , DD , ED , 60 , A9 ,19, 85 , 9E 

<036> 

18  REM  £ 

IM  WINKEL  8  £ 

<  059  > 

126 

DATA 

20 , 6C ,10, A9 , 00 , 85 , 9F , A9 , 04 , 85 

<213> 

19  REM  £ 

6719  WEISENHEIM  AM  BERG  ü 

<038> 

127 

DATA 

8D , A5 , 8B , A4 , 8C , 85 , FB , 84 , FC , A9 

<067> 

20  REM  £ 

TEL:  06353/8625  ü 

<  150> 

128 

DATA 

00 , A0 , 1 E , 85 , B5 , 84 , B6 , A9 , 28 , 85 

<  183> 

21  REM  £ 

ü 

<  129> 

129 

DATA 

BE , A0 , 07 , B9 , 36 , 1 0 , 99 , A4 , 00 , 88 

<  070  > 

27  RFM  JCCCCCCCCCCCCCCCCCCCCCCCCCCK 

<068> 

130 

DATA 

10 , F7 , A0 , 07 , A9 , 00 , 91 , B5 , 88 ,10 

<214> 

23  REM 

<0B5> 

131 

DATA 

FB , A9 , 08 , 85 , 22 , A0 , 00 , Bl , FB , 2A 

<  199> 

24  REM  ****************************** 

<07B> 

132 

DATA 

2A ,  2A ,  2A ,  20 , 56 , 1 2 ,  D0 , 06 ,  A0 , 00 

<  253  > 

25  REM  **  ZUERST  DISKETTE  EINLEGEN  »* 

<  179> 

133 

DATA 

A9 , C0 ,91, B5 , A0 , 00 , B 1 , FB , 6A , 6A 

<251  > 

26  REM  #* 

DANN  'RUN*  EINGEBEN  ** 

<  085 > 

134 

DATA 

6A , 20 , 56 ,12, D0 , 08 , A0 , 00 , B 1 , B5 

<000  > 

27  REM  ****************************** 

<  08 1  > 

135 

DATA 

09,30,91 ,B5,A0, 00, Bl ,FB,6A, 20 

<231  > 

28  REM" 

<  107> 

136 

DATA 

56 ,12, D0 , 08 , A0 , 00 , B 1 , B5 , 09 , 0C 

<237> 

30  OPEN 

,8, 1 , "F. HCOPY  JX  KOALA, P,W" 

<065> 

137 

DATA 

91, B5 , A0 , 00 , Bl , FB , 2A , 20 , 56 ,12 

<128> 

40  PR I NT # 1 , CHR$  <  0 ) CHRf (16); 

<  038  > 

138 

DATA 

D0, 08, A0, 00, Bl ,85,09,03,91 ,B5 

<  1 66  > 

50  FOR  N=  1  TO  623: READ  A* 

<  1  47  > 

139 

DATA 

E6 , B5 , D0 , 02 , E6 , B6 , E6 , FB , D0 , 02 

<062> 

60  A=ASC(A4) : B=ASC (RIGHT* (A*, 1) ) 

<084  > 

140 

DATA 

E6,FC,C6,22,F0,03,4C,3B, 1 1 ,E6 

<099> 

70  A=A-48— <7  AND  A>64 ) : B=B-48- <7  AND  B>64> 

<082  > 

141 

DATA 

AA , D0 , 02 , E6 , AB , E6 , A6 , E6 , A8 , D0 

<  1  06  > 

80  X=16*A+B: Y=Y+X : PR INT# 1 , CHR$ ( X ) ; 

<236> 

142 

DATA 

04 , E6 , A7 , E6 , A9 , C6 , BE ,F0 , 03, 4C 

<254  > 

85  NEXT : CLOSE  1: PRINT  CHR*(18); 

<079> 

143 

DATA 

2E ,11, 20 , 7D ,10, A9 , 0D , 20 , DD , ED 

<031  > 

90  IF  Y=70798  THEN  PRINT"OK  !":END 

<034> 

144 

DATA 

A9,7F,8D,00,DC,AD,01 ,DC,C9,7F 

<  124> 

95  PRINT1 

FEHLER  IN  DATAS" : END 

<  062  > 

145 

DATA 

F0 , 5B , C6 , 0D , 30 , 0B , A5 , 8D , C9 , 03 

<079> 

100  DATA 

A7,00, A0,60,4C,32, 12, 00, 00, FF 

<  1 48  > 

146 

DATA 

D0 , 02 , C6 , 8D , 4C , 0F , 1 1 , E6 , 9F , A5 

<  094  > 

101  DATA 

FF, 01 ,01 ,02, FF, 01 ,02,02,04,02 

<093> 

147 

DATA 

9F , C9 , 02 , F0 , 03 , 4C , 0B , 1 1 , 20 , 68 

<233> 

102  DATA 

02,04,04,04,01,04,00,01,04,02 

<  1 76> 

148 

DATA 

10, A9 , 0A , 20 , DD , ED , 20 , 6C ,10, C6 

<076> 

103  DATA 

00 , 00 , FF , 04 , 02 , 02 , FF , FF , FF , 0 1 

<  205  > 

149 

DATA 

9E , F0 , 32 , AD , 3C ,10,18, 69 , 28 , 8D 

<246> 

104  DATA 

02,04,08,10,20,40,80,40,20,10 

<084> 

150 

DATA 

3C ,10, 90 , 03 , EE , 3D ,10, AD , 38 ,10 

<066> 

105  DATA 

08 , 04 , 02 , 0 1 , 1 0 , 87 , 40 , 7F , 40 , 7F 

<190> 

151 

DATA 

18, 69 , 28 , 8D , 38 ,10, 8D , 3A ,10, 90 

<  128> 

106  DATA 

28 , 83 , 0F , 0F ,F0 ,F0 , 0F ,0F , 0F , 0F 

<077> 

152 

DATA 

06 , EE , 39 ,10, EE , 3B ,10, A5 , 8B , 1 8 

<081  > 

107  DATA 

1 0 , 87 , 40 , 7F , 40 , 7F , 28 , 83 , A9 , 1 B 

<231  > 

153 

DATA 

69 , 40 , 85 , BB , A5 , 8C , 69 ,01, 85 , 8C 

<217> 

108  DATA 

20 , DD , ED , A9 , 2A , 20 , DD , ED , A9 , 04 

<  1 0 1  > 

154 

DATA 

4C , 07 , 1 1 ,20,68, 10,A9,0A,20,DD 

<  124> 

109  DATA 

20 , DD , ED , A9 , 40 , 20 , DD ,ED , A9 , 0 1 

<212> 

155 

DATA 

ED , A9 , 00 , 20 , DD , ED , A9 , 04 , 20 , FE 

<064> 

110  DATA 

20, DD, ED, 60, A0, 1 8 , D0 ,02 , A0 , 00 

<  1 19> 

156 

DATA 

ED , 60 , 85 , 8B , 84 , BC , A0 , 07 , B9 , 46 

<Z55> 

111  DATA 

A9, 1 B, 20, DD, ED, A9, 33, 20, DD, ED 

<074> 

157 

DATA 

10,99,36, 10,88, 10, F7,A9, 00, 85 

<007> 

112  DATA 

98, 20, DD, ED, 60, A9, 00, A0, 1E,85 

<  182> 

158 

DATA 

90 , A9 , 04 , 20 , 0C , ED , A9 , 60 , 20 , B9 

<  157> 

113  DATA 

FB , 84, FC , A0 , 00 , B 1 , FB , D0 ,13, E6 

<048> 

159 

DATA 

ED , A5 , 90 , 30 , DE , 4C , 00 , 1 1 , 29 , 06 

<051  > 

114  DATA 

FB , D0 , 02 , E6 , FC , A5 , FB ,C9 , 40 , D0 

17  7 

16fe  »'ATA 

AA , A 1 , A4 , E0 , 02 , D0 , 04 , 4A , 4A , 4A 

<233> 

115  DATA 

F0,A5,FC,C9, 1F,D0,EA,60,A9,2B 

<0B9> 

161 

DATA 

4A , 29 , 0F , 0A , 65 , 9F , A8 , A5 , 8D , D9 

<  171  > 

116  DATA 

85 , FD , A9 , 00 , A0 , IE , B5 ,FB , 84 , FC 

<076> 

162 

DATA 

07,10,60 

<229> 

117  DATA 

A9 , 1 B , 20 , DD , ED , A9 , 72 , 20 , DD , ED 

<  1 44> 
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▲  Listing.  Koala- 
Hardcopy  und  der 
JX-80  -  das 
farbige  Wunder 

Sk.  1  _ _ 

rü^p|  ^ 

/ 

;Wl 

* : 

Bild  4. 

Farbige  Hardcopies  — 
ein  völlig  neues 
Druckergefühl 

führte,  so  ändert  sich  das  durch  den 
JX-80.  Obwohl  die  Steuerung  der 
Farben  prinzipiell  sehr  einfach  mit 
ESC-Befehlen  zu  erreichen  ist,  ge¬ 
hören  zu  einer  originalgetreuen 
Hardcopy  noch  einige  Tricks.  Sie 
sorgen  dafür,  daß  der  Farbspeicher 
des  C  64  richtig  interpretiert  und  die 
Farben  aus  den  zur  Verfügung  ste¬ 
henden  vier  Farben  richtig  ge¬ 
mischt  werden.  Das  im  Listing  abge¬ 
druckte  Programm  »Koala-Hardco¬ 
py«  übernimmt  diese  Steuerung  auf 


elegante  Weise.  Beachten  Sie,  daß 
das  abgedruckte  Programm  erst  ein 
ausführbares  Maschinenprogramm 
erzeugt  und  auf  Diskette  abspei¬ 
chert.  Das  erzeugte  Maschinenpro¬ 
gramm  muß  immer  absolut,  das 
heißt  mit  »F.  HCOPY  JX  Koala«, 8,1  ge¬ 
laden  werden.  Nach  dem  Laden  ge¬ 
ben  Sie  NEW  ein,  laden  ihr  Koala- 
Bild  und  starten  den  Ausdruck  mit 
SYS  4096.  Alles  andere  erledigt 
das  Programm.  So  eine  Bildschirm- 
Hardcopy  ist  allerdings  für  das  49 


Mark  kostende  Farbband  eine  ziem¬ 
liche  Strapaze.  Man  sollte  das  farbi¬ 
ge  Band  auch  nur  dann  verwenden, 
wenn  wirklich  Farbe  gebraucht 
wird.  Für  den  alltäglichen  Druckbe¬ 
trieb,  beispielsweise  zur  Textverar¬ 
beitung,  zu  der  der  JX-80  ebensogut 
wie  der  FX-80  geeignet  ist,  genügt 
es,  daß  ebenfalls  passende  Farb¬ 
band  des  FX-80  (23  Mark)  zu  ver¬ 
wenden. 

Der  JX-80  gehört  ohne  jeden  Zwei¬ 
fel  in  die  Drucker-Spitzenklasse. 
Wenn  er  auch  mit  2398  Mark,  ohne 
Interface,  nicht  billig  ist,  so  bietet  er 
für  den  Anwender,  der  die  Text-  und 
Farbfähigkeit  nutzt,  eigentlich  alles, 
was  das  Herz  begehrt.  Um  aus  dem 
JX-80  einen  Drucker  der  Superlative 
zu  machen,  bedarf  es  nur  noch  weni¬ 
ger  Ergänzungen.  Da  ist  zum  einen 
die  Traktorführung;  sie  sollte  der 
des  FX-85  nachempfunden  werden 
und  zum  anderen  sollte  eine  Near 
Letter  Quality-Schrift  implementiert 
werden.  Dies  realisiert  und  gepaart 
mit  der  Farbfähigkeit,  wäre  dann 
wohl  kaum  mehr  zu  überbieten. 

(E.  Konther/M.  Börner/aw) 

Info:  Epson  Deutschland  GmbH,  Zülpicher  Straße  6. 

4000  Düsseldorf  II 
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MPS  803  - 
Ein  Drucker 
für  alle 

Gelegenkeilen? 

Der  MPS  801  und  MPS  802  sind  Com- 
modore-Drucker,  die  noch  so  manchen 
Wunsch  offenließen.  Der  MPS  803 
scheint  diese  Tradition  fortzusetzen. 


Bild  1.  Der  MPS  803  —  ein  kompakter  Drucker 


Rein  äußerlich  ist  der  MPS  803 
(Bild  1)  ein  optisch  ansprechen¬ 
des,  kompaktes  Gerät,  das 
sich  auf  altbekannte  Art  mit  einem 
einfachen  Kabel  direkt  an  den  C  64 
anschließen  läßt.  Neu  sind  zwei  bis¬ 
her  bei  Commodore  nicht  übliche 
Schalter  auf  der  Geräterückseite. 
Diese  sind  mit  LPI  (Lines  per  Inch  = 
Zeilenabstand)  und  Device  (Geräte¬ 
adresse)  bezeichnet.  Mit  ihrer  Hilfe 
wird  zumindest  das  Einstellen  die¬ 
ser  Werte  problemlos. 

Nur  für  Fingerakrobaten 

Nach  dem  Abnehmen  des  Gehäu¬ 
seoberteils  fällt  der  etwas  zierlich 
geratene  Druckkopf  ins  Auge.  Die 
Farbbandkassette  ist  ebenfalls  sehr 
klein  und  erweckt  den  Eindruck,  als 
gehöre  sie  nicht  zu  diesem  Drucker. 
Ein  Blick  ins  Handbuch  widerlegt 
diesen  Eindruck  aber  bald:  Die  Kas¬ 
sette  ist  nur  halb  so  breit  wie  der 
mögliche  Druckweg.  Dies  hat  zur 
Folge,  daß  eine  an  der  Kassette  an¬ 
gesteckte,  bewegliche  Bandfüh¬ 
rung  herausgezogen  und  ganz 
rechts  im  Diucker  in  eine  Lasche 
gesteckt  werden  muß.  Dies  hört  sich 
nicht  nur  kompliziert  an,  das  ist  es 
auch.  Nach  einiger  Übung  mag  es 
gelingen,  das  Farbband  richtig  und 
ohne  es  mehrmals  aus  der  Führung 
zu  verlieren  einzulegen.  Ohne 
schwarze  Finger  geht  es  aber  auch 
dann  nicht.  Es  wäre  auf  jeden  Fall 
besser  gewesen,  das  Farbband  des 
MPS  802  zu  verwenden. 

Der  Papiereinzug  des  MPS  803  ist 
für  Einzelblätter  und  Endlos-Rollen¬ 
papier  gedacht,  denn  es  fehlt  jede 
Papierführung  oder  ein  Traktoran¬ 
trieb.  Ern  Traktor  muß  für  etwa  100 
Mark  hinzugekauft  werden.  Diese 


Investition  lohnt  sich  aber  in  jedem 
Fall,  denn  wenn  man  den  Fehler  be¬ 
geht,  das  Papier  nicht  genau  gerade 
einzulegen,  so  wandert  es  unwei¬ 
gerlich  in  die  eine  oder  andere 
Richtung.  Für  eine  Textverarbeitung 
ist  der  MPS  803  aber  nicht  nur  we¬ 
gen  dieser  Tatsache  ungeeignet. 
Diese  Anwendungen  bleiben  dem 
MPS  803  auch  wegen  seines  Zei¬ 
chensatzes  vorenthalte-  Der  Zei¬ 
chensatz  ist  auf  den  C  64  abgestimmt 
und  hat  demzufolge  keine  Umlaute. 
Es  besteht  zwar  die  Möglichkeit, 
sich  die  Umlaute  im  Grafikmodus 
selbst  zu  definieren,  leider  wird  die¬ 
se  Funktion  nur  von  den  wenigsten 
Textprogrammen  unterstützt.  Aber 
selbst  wenn  man  sich  damit  abfin- 
den  könnte,  das  Aussehen  der  ein¬ 
zelnen  Buchstaben,  besonders  der 
Buchstaben  mit  Unterlängen,  kann 
nur  als  unharmonisch  bezeichnet 
werden.  Es  gibt  keine  echten  Unter¬ 
längen.  Das  heißt,  alle  Buchstaben 
mit  Unterlängen  werden  einfach  an¬ 
gehoben  und  schweben  erhaben 
über  dem  Rest  des  Wortes.  Zusam¬ 
men  mit  dem  ohnehin  nicht  überzeu¬ 
genden  Druckbild  (Bild  2  und  3), 
wird  wohl  kaum  jemand  auf  die  Idee 
kommen,  Briefe  mit  diesem  Schrift¬ 


bild  zu  schreiben.  Der  MPS  803  hat 
aber  auch  seine  positive  Seite  —  er 
ist  grafikfähig.  Dabei  ist  dieses  Wort 
allerdings  zu  relativieren,  den  die 
Grafik  des  MPS  803  mit  der  eines 
Star  SG  10  zu  vergleichen  hieße, 
Äpfel  mit  Birnen  zu  messen.  Auch 
die  Steuerbefehle  und  die  Druckge¬ 
schwindigkeit  reißen  niemanden 
aus  dem  Sessel,  denn  Breit-  und  Re¬ 
versschrift  sind  einfach  zu  wenig. 

Was  bleibt 

Mit  einem  Marktpreis  von  etwa 
550  Mark,  zuzüglich  100  Mark  für  ei¬ 
nen  Traktorantrieb,  ist  der  MPS  803 
für  seine  Leistungen  eindeutig  zu 
teuer.  Bedenkt  man,  daß  der  etwas 
bessere  MPS  801  inzwischen  günsti¬ 
ger  angeboten  wird  (Preis  etwa  300 
Mark),  so  dürfte  sich  der  Preis  wahr¬ 
scheinlich  nicht  mehr  allzulange  hal¬ 
ten.  Insgesamt  betrachtet  ist  der 
MPS  803  ein  Drucker,  der  für  einen 
einfachen  Drucker  zu  teuer  ist,  aber 
den  Anforderungen  der  mittleren 
Preisklasse  nicht  gerecht  wird. 

(E.  Konther/aw) 

Info:  Commodore  Büromaschinen  GmbH.  Lyoner  Str.  38. 
6000  Frankfurt/M 


Bild  2.  Das  Schriftbild  des  MPS  803. 
Es  fehlen  Umlaute  und  Unterlängen 


DER  MPS  S03  KANN  NICHT  NUR  GEOSS- 
sondern  auch  Kleinschrif t... 


■äa^«s«ISHi.lJü!lll  REV  AUS  IN  EINER  ZEILE, 
BREITSCHRIFT  oder-  sr*P  hi  IC- 
SEICHEN  DARSTELLEN.  ♦**#l  B  L  lo*  «  V 

LEIDER  FEHLEN  DEUTSCHE  ZEICHEN  UND 
U  n  t.  0  r  1  a  0  n  9  0  n  c!  p  a  y  h  9  K  i  „  D  0  •=.  h  a  1  b  0  r  9  i  b  t 
£.  i  c  h  K  e  i  n  h  a  r  m  o  n  i  ■=•  c  h  e  •=.  S  c  h  r  i  f  t  b  i  1  d . 


Bild  3. 
Der  fünffach 
vergrößerte 
Buchstabe  A 
in  der 
Normalschrift 
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SP  1 000  VC  —  Superslar  mit  Haken 

Die  Leistungsdaten  des  SP  1000  VC  hören  sich  exzellent  an. 

Aber  kann  der  Drucker  im  Praxistest  diese  Daten  bestätigen? 


Seikosha-Drucker  werden  von 
vielen  C  64-Besitzern  benutzt, 
auch  wenn  sie  es  meistens  gar 
nicht  merken.  Das  Geheimnis  die¬ 
ser  Aussage  liegt  dann,  daß  Com- 
modore  einige  seiner  Druckermo¬ 
delle  von  Seikosha  bezogen  hat.  Da¬ 
her  sind  die  Drucker,  die  Seikosha 
unter  seinem  eigenen  Namen  ver¬ 
kauft,  fast  immer  auch  in  emer  direkt 
an  den  C  64  anschließbaren  Version 
erhältlich.  Dieser  gute  Brauch  hat 
auch  im  SP  1000  VC  (Bild  1)  seine 
Fortführung  gefunden.  An  der  Gerä¬ 
terückseite  befinden  sich  die  glei¬ 
chen  zwei  Diodenbuchsen  zum  se¬ 
riellen  Anschluß  wie  bei  Commodo- 
re-Druckern.  Daneben  findet  man 
erfreulicherweise  auch  vier  gut  er¬ 
reichbare  DIL-Schalter  für  die  Ge¬ 
räteadresse,  Seitenlange,  Papier¬ 
enderkennung  und  die  Darstel¬ 
lungsform  der  Null. 

Man  muß  schon  eine  halbe  Spie¬ 


lernatur  sein,  um  alle  Funktionen, 
die  beim  SP  1000  VC  mit  Schaltern 
und  Tasten  einstellbar  sind,  voll  ge¬ 
nießen  zu  können,  Trotzdem  kann 
man  einigen  der  Tastenfunktionen 
(neben  den  obligatorischen  On- 
Line,  LF-  und  FF-Tasten)  einen  gewis¬ 
sen  Nutzen  nicht  abstreiten.  So  ist  es 
beispielsweise  manchmal  recht 
praktisch,  die  NLQ-Schrift  mit  einem 
einzigen  Tastendruck  einzustellen. 

Etwas  verwirrender  wird  die  Be¬ 
dienung  des  Druckers,  wenn  man 
sich  den  Zweitfunktionen  dieser  Ta¬ 
sten  nähert.  Nach  einiger  Übung 
wird  man  aber  auch  die  Einstellung 
der  Ränder  und  den  automatischen 
Einzelblatteinzug  zu  schätzen  wis¬ 
sen.  Damit  ist  bereits  angedeutet, 
daß  der  SP  1000  VC  Einzelblätter 
ebenso  problemlos  verarbeiten 
kann,  wie  Endlospapier.  Die  er¬ 
wähnte  Einzugsautomatik  macht  auf 
erfreulich  angenehme  Weise 


Schluß  mit  dem  Gefummel  beim 
Einlegen  von  Einzelblättern.  Leider 
ist  der  Antriebstraktor  etwas  ungün¬ 
stig  oberhalb  der  Druckwalze  ange¬ 
ordnet,  so  daß  es  bei  jeder  abzu¬ 
trennenden  Seite  zu  einem  Blattver¬ 
lust  kommt.  Das  Wechseln  des  Farb¬ 
bandes,  das  keiner  Norm,  außer  der 
eigenen  Norm  entspricht,  läßt  sich 
leicht  und  ohne  schwarze  Finger  be¬ 
werkstelligen. 

Das  gute  Handbuch,  das  jedem 
Drucker  in  einer  deutschen  und 
englischen  Version  beiliegt,  gibt 
Aufschluß  über  die  weiteren  Fähig¬ 
keiten  des  SP  1000  VC.  Getreu  dem 
VC  im  Namen  des  SP  1000  VC  sind 
die  Befehle  mit  denen  des  MPS  802 
weitgehend  gleich.  Darüber  hmaus 
gibt  es  noch  Befehle  für  Kursivschrift 
und  das  Unterstreichen.  Alle  Grafik¬ 
zeichen  des  C  64  gehören  ebenso 
zum  Repertoire  des  SP  1000  VC  wie 
auch  ein  einfacher  Grafikmodus.  Die 


Bild  1.  Der  Seikosha  SP  1000  VC 


Grafik  wird  sauber  und  nahtlos  an¬ 
einandergesetzt.  Die  Auflösung  von 
480  Punkten  pro  Zeile  kann  dabei  al¬ 
lerdings  nur  den  wenigsten  Ansprü¬ 
chen  gerecht  werden. 

Beim  SP  1000  VC  wechseln  sich 
Vor-  und  Nachteile  ab.  Der  m  jeder 
Hinsicht  guten  NLQ-Schrift  (Bild  2) 
steht  die  etwas  hinter  den  Angaben 
herhinkende  Druckgeschwindig¬ 
keit  entgegen  (angegeben  100,  ge¬ 
messen  82).  Dieser  ohnehin  magere 
Wert  reduziert  sich  bei  der  NLQ- 
Schrift  auf  die  Geschwindigkeit  ei¬ 
nes  guten  Typenraddruckers  (20 
Zeichen  pro  Sekunde).  Aber  auch 


Bild  2.  Die  hervorragende  NLQ-Schrift  —  aber  leider  ohne  Umlaute 


Technische  Daten  des  SP  1000  VC 


Name  des  Druckers 
Schriftarten 
Geschwindigkeit 
NLQ-Schrift 

Unterstreichen 

Zeichenmatrix 

Papierarten 

Spaltenbreite 

Selbsttest 

Schnittstellen 

Pufferspeicher 

Rückwärtstransp. 

Grafikmodi 

Sonderfunktionen 

Funktionstasten 

Ausstattung 


Seiskosha  SP  1000  VC 

Pica.  Elite,  Schmal,  Pica  NLQ,  Elite  NLQ,  Kursiv 
angeg.:  100  Z/s:  gern.:  82  Z/s:  Probet.:  3:  40 


Ja.  19  x  13 

Ja 

9x7 

Einzel-/ Endlos 
0  bis  137 

Ja  Hexdump:  Ja 
CBM  +  seriell 
Nein 

Nein  Hör.  Tab.:  Nein 

480  Punkte  pro  Zeile 

Schalter  für:  NLQ,  Randeinstellung;  Anschlag¬ 
stärke  einstellbar,  4  DIL-Schalter 
:  On-Line,  LF,  FF,  NLQ,  Rand 
:  Handbuch  in  deutsch,  Kabel,  Farbband 


NLQ-Geschw. :  20  Z/s 
Proportional.:  Nein 
Zeichenvoirat:  96  ASCII/CBM 
Durchschläge  :  2 
Papierbreite:  101,  6  bis  254 
Äutom.  Einzelbl.-Einz.:  Ja 

Ladbarer  Zeichens.:  Nein 

Ver.  Tab.:  Nein 


Seikosha  SP-1000  VC,  ein  Drucker  mit  Near  Letter  Quality 

Aber  auch  PICA  einfach  ist  moeglich  wie  man  sieht. 

Elite  spart  jede  Menge  Platz, 

Schsalschrift  spart  noch  lehr  Platz  ist  aber  schwerer  lesbar. 

Kursivschrift  dient  dem  Herausstellen  von  Uoertern. 
Leider  ohne  Umlaute,  aber  mit  Eis  tt~  e?  :i  't-  •==>  c:  f~«  r-  i  t;  , 

und  Graphik  mit  Doppel  druck  -XVvVvH* 


64er-online.net 


Ausgabe  11 /November  1985 


Hardware-Test 


C  64 


im  Normalmodus  kann  man  mit  dem 
Schriftbild  schon  einiges  anfangen. 
Man  darf  zwischen  den  Schriften  Pi¬ 
ca,  und  Elite  entscheiden,  den 
Drucker  initialisieren,  auf  Schmal¬ 
schrift  umschalten  und  beispiels¬ 
weise  Formeln  mit  Hilfe  von  Sub¬ 
script  und  Superscript  richtig  dar¬ 
stellen.  Auch  der  Wechsel  zwischen 
der  Standardschrift  und  dem  NLQ- 
Modus,  gleich  in  welcher  Schriftart, 
ist  per  Software-Befehl  möglich. 

Doch  so  gut  sich  diese  Fähigkeiten 
auch  anhören  mögen,  man  wird  vom 
SP  1000  VC  rasch  wieder  auf  den  Bo¬ 
den  der  Realität  zurückgeholt.  Die 


vorgenannten  Leistungsmerkmale 
lassen  sich  allesamt  nur  über  Sekun¬ 
däradressen  an-  beziehungsweise 
aus  wählen.  Von  einer  Text  Verarbei¬ 
tung  aus  ist  da  so  gut  wie  nichts  ein¬ 
zustellen.  Beinahe  vergessen  sind 
da  die  fehlenden  Umlaute. 

Die  Druckerentwicklung  macht 
zweifelsohne  enorme  Fortschritte  — 
doch  in  welche  Richtung?  Zwar  ist 
der  komplette  C  64-Zeichensatz  si¬ 
cher  eine  nützliche  Angelegenheit 
und  auch  die  gute  NLQ-Schrift  deu¬ 
tet  in  Richtung  sinnvoller  Anwen¬ 
dungen  wie  der  Textverarbeitung. 
Um  so  unverständlicher  ist  es,  daß 


wichtige  Funktionen  eines  Druckers 
von  einer  Textverarbeitung  aus  ein¬ 
fach  nicht  angesprochen  werden 
können.  Der  NLQ-Modus  verliert  in 
diesem  Zusammenhang  sogar  gänz¬ 
lich  seinen  Sinn,  denn  Umlaute  ge¬ 
hören  heute  einfach  zum  Standard. 
Der  SP  1000  VC  ist  als  Listing- 
drucker  zu  schade  (und  mit  948 
Mark  zu  teuer)  und  für  eine  Textver¬ 
arbeitung  nur  bedingt  geeignet.  So 
gesehen  ist  der  SP  1000  VC  ein 
Drucker  auf  der  Suche  nach  seiner 
eigenen  Identität. 

(E.  Konther/aw) 

Info:  Microscan,  Postfach  601705,  2000  Hamburg  60 


Epson  FX-85  — 

neue  Referenz 

Nachdem  der  FX-80  doch  schon  etwas 
in  die  Jahre  gekommen  ist  und  auch 
der  FX-80+  nur  wenig  verbesserte, 
stellte  sich  die  Frage  des  Nachfolgers. 
Jetzt  ist  er  da  —  der  neue  FX-85. 


Bild  1 .  Die  neue  Referenz  —  der  FX-85 


Die  Geschichte  der  Epson-Druk- 
ker  hört  sich  nicht  nur  interes¬ 
sant  an,  sie  ist  es  auch.  Schon  zu 
einer  Zeit,  als  Computer  für  den 
Heimbereich  noch  fast  unvorstell¬ 
bar  waren,  setzte  Epson  mit  seiner 
MX-Serie  Standards.  Die  darauffol¬ 
gende  Generation  der  RX/FX-Druk- 
ker  war  bereits  für  viele  Commo- 
dore-Besitzer  ein  treuer  Wegbeglei¬ 
ter.  Der  Erfolg  der  RX/FX-Serie  ist 
hauptsächlich  auf  die  umfassenden 
und  leicht  zu  bedienenden  Funktio¬ 
nen,  bei  einem  guten  Preis-/Lei- 
stungs  Verhältnis,  zurückzuführen. 
Trotzdem  läßt  die  rasante  Entwick¬ 
lung  auf  dem  Druckermarkt,  na¬ 
mentlich  einer  immer  höher  wer¬ 
denden  Druckgeschwindigkeit,  der 
NLQ-Schrift  und  der  tastengesteu¬ 
erten  Schriftenwahl,  keiner  Firma 
die  Zeit,  sich  auf  dem  Erarbeiteten 
auszuruhen.  Mit  den  steigenden  An¬ 
sprüchen  der  Heimcomputer-Besit¬ 
zer,  die  auch  auf  den  beruflichen 
Sektor  maßgeblichen  Einfluß  haben 
(wer  arbeitet  im  Büro  schon  gerne 
mit  einem  schlechteren  Drucker  als 
zu  Hause),  war  Epson  in  einen  ge¬ 
wissen  Zugzwang  geraten.  Der  Ep¬ 
son  FX-85  (Bild  1)  soll  diese  Lücke 
wieder  schließen. 


Wie  bei  fast  allen  Entwicklungen 
gibt  es  immer  mehrere  Wege,  ein 
Produkt  an  veränderte  Marktbedin¬ 
gungen  anzupassen.  Die  erste  Mög¬ 
lichkeit  besteht  darin,  ein  völlig  neu¬ 
es  Gehäuse  mit  neuer  Technik  zu 
entwickeln,  die  zweite  Art  beläßt  an 
einem  Produkt  die  guten  Teile  und 
verbessert  nur  das  nicht  mehr  zeit¬ 
gemäße.  Wie  man  von  der  Modell¬ 
vielfalt  japanischer  Autos  her  weiß, 
bevorzugen  japanische  Firmen  die 
erste  Strategie.  Nicht  so  Epson,  ob¬ 
wohl  ebenfalls  japanischen  Ur¬ 
sprungs,  so  haben  sich  die  Techni¬ 
ker  im  fernen  Nagano  dazu  ent¬ 
schlossen,  ein  gutes  System  in  sei¬ 
ner  Leistungsfähigkeit  zu  erhöhen  — 

Evolution  statt  Revolution 

ein  weiser  Entschluß,  wie  sich  noch 
zeigen  wird.  Deshalb  unterscheidet 
sich  der  FX-85  rein  äußerlich  auch 
nur  durch  einige  wenige,  aber  we¬ 
sentliche  Merkmale.  Außer  dem 
Namensschild  ist  das  vor  allem  die 
neue  Bezeichnung  der  Funktionsta¬ 
sten.  Neben  dem  altbekannten  On 
Line,  Form  Feed  und  Line  Feed  fin¬ 
det  man  zwei  weitere  Bezeichnun¬ 
gen;  Draft  und  NLQ.  Und  tatsächlich, 


auch  bei  Epson  ist  in  dieser  Preis¬ 
klasse  das  Zeitalter  der  Near-Letter- 
Quality  Schrift  angebrochen  (Bild  2). 
Die  Buchstaben  Draft  stehen  ledig¬ 
lich  dafür,  daß  man  die  mit  NLQ  ein¬ 
stellbare,  besonders  schöne  Schrift 
auch  durch  Tastendruck  wieder  ab¬ 
schalten  kann.  Unser  Probedruck 
(Bild  3)  zeigt,  wie  gut  und  harmo¬ 
nisch  die  Buchstaben  geformt  sind. 
Allerdings  kann  es  Vorkommen,  daß 
die  erste  Zeile  in  NLQ-Schrift  etwas 
weniger  scharf  als  die  restlichen 
Zeilen  gedruckt  wird. 

Die  Mehrzahl  der  Veränderungen 
hat  intern  im  Drucker  stattgefunden. 
Mit  einer  Zusatzplatine  und  neuen 
Steuer-ROMs  sind  einige  Funktio¬ 
nen  dazugekommen,  die  das  Arbei¬ 
ten  mit  dem  FX-85  sowohl  für  den 
Basic-Programmierer,  als  auch  für 
denjenigen,  der  mit  verschiedenen 
Text-  und  Datenverarbeitungspro¬ 
grammen  arbeiten  möchte,  ange¬ 
nehm  und  effektiv  gestaltet.  Da  ist 
zunächst  die  sogenannte  Master-Be¬ 
triebsart.  Sie  erlaubt  es,  mit  einem 
einzigen  Befehl,  jede  nur  erdenkli¬ 
che  Schriftenkombination,  sowohl 
im  Normalschrift-,  als  auch  im  Schön¬ 
schriftmodus  zu  erreichen.  Man 
sucht  sich  nur  noch  aus  einer  Tabel- 
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Der  Epson  FX-85 

Mit  der  schönen  NLQ-Schrift  und  einigen  praktischen 
Druckbefehlen  wurde  der  FX-80  sinnvoll  erweitert 
Alle  anderen  Druckbe-f ehle  des  FX—80  bleiben  ganz 
wie  gewohnt  erhalten.  Z?  i  e  /In 

kann  entweder  durch  Befehle  oder  über  die  Furiktionstasten  erfolgen. 

Bild  1 .  Der  FX-85  -  schön  und  funktionell 


Aci 

Bild  2.  Der  fünffach  vergrößerte 
Buchstabe  »A«  der  NLQ-Schrift 


le  in  dem  exzellenten  Handbuch  die 
gewünschte  Schrift  heraus  und  gibt 
die  Nummer  der  Schrift  in  Form  ei¬ 
nes  Parameters  an.  Auch  für  die  von 
vielen  Textverarbeitungen  her  be¬ 
kannte  Funktion  des  Randaus¬ 
gleichs  (rechts, Mitte, links)  wird  vom 
FX-85  unterstützt.  Neu  sind  auch  die 
Befehle  zur  Beeinflussung  des  ach¬ 
ten  Bits  der  ankommenden  Daten. 
Obwohl  für  den  C  64-Besitzer  nicht 
maßgeblich,  so  besteht  immerhin 
die  Möglichkeit,  die  Drucker  auch 
an  einem  zweiten  Computer,  der 
das  achte  Bit  nicht  wie  erwartet  sen¬ 
det,  zu  betreiben. 

Der  FX-85  unterscheidet  sich  me¬ 
chanisch  nur  unwesentlich  vom  FX- 
80.  Er  besitzt  ebenso  neun  Nadeln 
und  druckt  die  Zeichen  der  Normal- 
schrift  in  der  bekannten  9xll-Matrix. 
Schaltet  man  jedoch  in  die  Schön¬ 
schrift,  so  wird  die  Matrix,  wenig¬ 
stens  rechnerisch,  zu  einer  18x18- 


Matrix.  Dieser  Punktevorteil  wird 
durch  einen  nicht  unerheblichen 
Geschwindigkeitsnachteil  (37  ge¬ 
genüber  160  Zeichen  pro  Sekunde, 
Probetext  in  1:43)  erkauft.  Im  Gegen¬ 
satz  zu  seinem  Vorfahren  besitzt  der 
FX-85  einen  Pufferspeicher  von  acht 
KByte.  Damit  erreicht  er  bereits  Di¬ 
mensionen,  ab  denen  sich  ein  Puf¬ 
ferspeicher  bezahlt  macht.  Beim  Ar¬ 
beiten,  beispielsweise  mit  einer 
Textverarbeitung,  kann  man  mit  der 
Texteingabe  weitermachen,  obwohl 
der  Drucker  noch  den  letzten  Aus¬ 
druck  beendet. 

Allerlei  Tasten 

Drucker  kann  man  auf  die  ver¬ 
schiedensten  Arten  steuern;  durch 
Schalter,  DIL-Schalterreihen,  Se¬ 
kundäradressen  und  natürlich  mit 
den  ESC-Befehlen.  Die  Drucker  mit 
dem  Namen  Epson  zeichneten  sich 
immer  schon  durch  mre  flexiblen 
Befehle,  die  das  gesamte  Leistungs¬ 
spektrum  des  Druckers  auch  wirk¬ 
lich  verfügbar  machen,  aus.  Beim 
FX-85  wurde  von  diesem  Konzept 
glücklicherweise  nicht  abgewi¬ 
chen.  Die  Kontrolle  über  den 
Drucker  ist  mit  einer  enormen  Viel¬ 
zahl  an  Befehlen  möglich.  Beim 


Technische  Daten 


Name  des  Druckers: 
Schriftarten: 

Geschwindigkeit: 

NLQ-Schrift: 

Unterstreichen: 

Zeichenmatrix: 

Papierarten: 

Spaltenbreite  v-b: 

Selbsttest: 

Schnittstellen: 

Pufferspeicher: 

Rückwärtstransp. 

Grafikmodi: 

Sonderfunktionen: 


Funktionstasten: 

Ausstattung: 


Epson  FX-85 

Elite,  Fett,  Breit,  Schmal,  Doppeldruck,  Hoch-/Tiefgestellt, 
Unidirektional 

angeben:  160  Zeichen/s,  gemessen:  158  Z/s,  Probetext:  1:43 

Ja,  18  x  18  NLQ-Geschw.:  37  Z/s 

Ja  Proportional:  Ja 

9  x  11  Zeichenvorrat:  ASCII,  International 

Einzel-/ Endlos  Durchschläge:  2 

0  bis  160  Papierbreite:  185  bis  254  mm 

Ja,  Hexdump:  Ja  Automatischer  Einzelbl.-Einz.:  Nein 

Centronics;  wahlweise  RS232,  IEEE  488 

8200  Zeichen  Ladbarer  Zeichens.:  Ja 

Ja,  Hor.-Tab.:  Ja  Ver.-Tab.:  Ja 

480  bis  1920  Punkte  pro  Zeile 

Master  Betriebsart,  Einstellung  der  relativen  Punktposition, 
9-Punkt  Grafikmodus,  Schriftenwahl  durch  Tasten,  Randaus¬ 
gleich 

On  Line,  LF,  FF,  NLQ,  Draft 

Handbuch  deutsch,  Farbband,  Papierseparator 


Tabelle.  Die  Leistungen  des  FX-85  auf  einen  Blick 


FX-85  ist  aber  noch  eine  weitere 
Steuerungsmethode  hinzugekom¬ 
men.  Neben  der  bereits  erwähnten 
Schönschrift  lassen  sich  mit  den 
Funktionstasten  des  Druckers  neun 
verschiedene  Schriften  (siehe  Ta¬ 
belle)  und  ein  Steuerbefehl  zum 
Überspringen  der  Perforation  ein¬ 
stellen.  Die  Bedienung  ist  einfacher 
als  man  denkt.  Man  drückt  einfach 
die  On-Line-  und  Form-Feed-Taste 
gleichzeitig  und  befindet  sich  im 
Programmiermodus.  Nun  kann  man 
durch  mehrmaliges  Drücken  auf  die 
On-Line-Taste  die  gewünschte 
Schrift  einstellen.  Nach  der  Bestäti¬ 
gung  mit  der  Form-Feed-Taste  und 
der  Rückstellung  des  Programmier¬ 
modus  mit  der  Line-Feed-Taste  ist 
der  Drucker  in  der  gewünschten 
Schrift  fixiert.  Diese  Funktion  ist 
wohlgemerkt  nur  so  lange  (nicht  wie 
beim  GX-80)  sinnvoll,  wie  man  alter¬ 
nativ  auf  die  Programmierung  der 
ESC-Befehle  zurückgreifen  kann. 

Spitzenklasse 

Mit  dem  FX-85  ist  es  Epson  gelun¬ 
gen,  der  Konkurrenz  ein  Schnipp¬ 
chen  zu  schlagen.  Zwar  gibt  es 
schnellere  Drucker  und  auch  sol¬ 
che,  die  ein  wenig  schöner  schrei¬ 
ben.  Die  gleiche  Kombination  aus 
Leistung  und  Bedienungskomfort 
kann  aber  kein  anderer  Drucker 
dieser  Preisklasse  anbieten.  Dabei 
ist  es  erfreulich,  daß  der  FX-85  kei¬ 
nen  Pfennig  mehr  als  der  alte 
FX-80  +  kostet  —  er  hat  den  gleichen 
Listenpreis  von  1848  Mark.  Nun  wer¬ 
den  sich  manche  Besitzer  des  FX- 
80/FX-80+  überlegen,  daß  man  ih¬ 
ren  Drucker  vielleicht  aufrüsten 
könnte.  Kurz  gesagt  —  man  kann!  Für 
beide  Drucker  gibt  es  von  Epson 
Umbausätze  für  350  Mark  (FX-80) 
beziehungsweise  300  Mark  (FX- 
80  + ).  Der  Einbau  soll  nach  Aussage 
der  Firma  Epson  von  jedem  autori¬ 
sierten  Fachhändler  vorgenommen 
werden  können. 

Mit  seinen  Leistungen  wird  der 
FX-85  auch  weit  über  das  Jahr  1985 
noch  tonangebend  in  der  Drucker¬ 
welt  sein.  Und  selbst  wenn  es  einmal 
eine  weitere  Verbesserung  geben 
sollte,  bei  der  derzeitig  von  Epson 
verfolgten  kundenfreundlichen 
Strategie,  wird  man  wahrscheinlich 
wieder  einen  Umbausatz  erhalten 
können.  Dieses  zukunftssichere,  lei¬ 
stungsstarke  Konzept  war  für  uns 
Anlaß,  den  FX-85  zu  unserem  neuen 
Referenzdrucker  in  der  Preisklasse 
über  1400  Mark  zu  küren.  (aw) 

Info  Epson  Deutschland  GmbH,  Zülpicher  Straße  6,  4000 
Düsseldorf  11 
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Papeitlip  —  ausdrücklich  gut 

Paperclip  ist  ein  relativ  unbekanntes  Textverarbeitungsprogramm,  trotzdem 
gehört  es  zu  den  leistungsfähigsten 
für  den  C  64  überhaupt. 


he  PaperClip  Cursor  can  be  «oved  to  any 
place  in  a  docunent  easily.  Space  can 
be  inserted  or  deleted  and  spelling  erro 
rs  changed  quickly.  Making  changes  to  t 
ext  could  neyerlbe  easier. . . just  nove  th 
e  Cursor  into  Position  and  «ake  the  chan 
ge . 

Each  Paragraph  end  is  «arked  by  pressing 
RETURN.  The  RETURN  sy«bol  is  a  Shall  1 
eft  arrow.  Notice  the  RETURH  at  the  end 


eft  arrow.  Notice  tr 
o  f  this  Paragraph.*- 


*- 

PaperClip  can  woue  text  in  three  basic  w 
aus.  Whole  lines  can  be  «owed  with  the 
RANGE  c  o««and .  Sentences.  Phrases  or  wo 
rds  can  be  noved  with  the  PHRASE  connand 
Finallg,  colynns  can  be  «anipulated  e 
asily  with  the  COLUMH  functions> 


'ft  fatt'lli*  v.  n  Ce"  *t  '  i“  *  t‘,  •  «,'t  ir  !  : 
tsMy.  rs£*  C»'  U  itlit«;  s-:  .fl  ir-t 

c* r i  i'.iciij.  r t» « r  *  c‘  r  .ii  t<  *  o .  i"*  £s 

tijit  •  ••iC*  r  t  t* «  C«.  ifit  .  'iti  *  J*‘  “ i» «  **• 

Cf  i‘  <!. 

£*cf  s.  s.*  *"2  ;  -I  m!  t  *  *ir-: 

i s  t  ;-ili  l*#t  i  ..  ‘  ♦  :*  ff*  >*.  -•  »t  ».« 

I  ttif  »I  I.  irfi 

•i.«  .  Cs'  ■  t  *t  *  ■  *f  «  t«fic  -«*."•  t  ift:  Cs" 

*t  :*  .  ••  •*«  »-'•i  3.  «■'«■:«.■• »*  t:*s  -  i: 

Cs"  £«  -  t!  t*t  f-M  C*  "*»*!#  •  f«H>.  C  lu-C  Cs" 

£t  -s".f .  st*:  *>itb  ♦*«  I’..”  »tSCti-r-c. 

:s-t  .  Ct"  "  t  tj  J  if  ff  st  £s."iC  Cs" 

ts  -  .if*  *“«  {•  «"Vü;.  s."t."  -  :: 

:»•  ?f  tft  £  c—  ei,  *  rjli>.  C"k*"  er 

£t  ri'i,.i«T*J  Hitfl  TU#  tre* 


▲  Bild  2.  Die  80-Zeichen-Darstellung  vermittelt  zumindest  einen  Ein¬ 
druck  des  späteren  Textbildes 

i  Bild  1 .  Paperclip  formatiert  den  Text  erst  nach  der  Eingabe 


Das  Textverarbeitungspro¬ 
gramm  »Paperclip«  gibt  es 
schon  seit  einiger  Zeit  für  die 
CBM-Serie  von  Commodore,  also 
für  die  Computer  der  Reihen  3000, 
4000  und  8000.  Die  hier  getestete 
neue  Version  von  Paperclip  für  den 
C  64  wurde  aber  überarbeitet  und 
in  einigen  Punkten  erweitert. 

Paperclip  gehört,  wie  Wordpro 
3  + ,  nicht  zu  den  sogenannten  bild¬ 
schirmorientierten  Textprogram¬ 
men.  Damit  ist  angedeutet,  daß  der 
Text  im  Speicher  unformatiert  ist 
und  erst  beim  Ausdruck  auf  dem 
Drucker  seine  endgültige  Form  be¬ 
kommt  (Bild  1).  Das  hat  den  Vorteil, 
daß  die  Grundeigenschaften  des 
Editors  relativ  einfach  sein  können. 

Erst  schreiben,  dann 
formatieren 

Der  Nachteil  dieser  Methode  ist 
aber  ein  relativ  unübersichtlicher 
Tfext  auf  dem  Bildschirm,  da  die  For¬ 
matbefehle  für  den  Drucker  im  Text 
enthalten  sind  und  ihn  damit  unter¬ 
brechen.  Wenn  man  sich  allerdings 
an  diese  Art  der  Tsxt  Verarbeitung 
gewöhnt  hat,  kann  man  durchaus  da¬ 
mit  zurechtkommen,  vor  allem  bei 
einem  Programm  wie  Paperclip,  das 
die  oben  genannten  Nachteile 
durch  viele  Hilfsmittel  relativiert.  So 
kann  man  sich  beispielsweise  jeder¬ 
zeit  ein  exaktes  Abbild  des  späteren 
Ausdruckes  auf  den  Bildschirm  ge¬ 
ben  lassen,  praktischerweise  sogar 
in  80-Zeichen-Darstellung  (Bild  2),  in 
der  man  die  spätere  Formatierung 


des  Textes  besonders  gut  erkennen 
kann. 

Das  Programm  kommt  aus  Kanada 
und  ist  deshalb  nicht  von  Haus  aus 
mit  den  deutschen  Umlauten  ausge- 
stattet,  Buch- 

staben,  die  sogenannten  »Multilin¬ 
gual  Keys«,  frei  besetzen  und  damit 
dieses  Manko  ausgleichen.  Ferner 
ist  es  möglich  komplette  Zeichensät¬ 
ze  nachzuladen  und  somit  auch  eine 
komplette  deutsche  Schreibmaschi¬ 
nentastatur  zu  realisieren.  Um  die¬ 
sen  geänderten  Zeichensatz  auch 
voll  auf  dem  Drucker  ausgedruckt 
zu  bekommen,  kann  man  sich  seine 
eigene  Druckerdatei,  mit  allen  spe¬ 
zifischen  Druckercodes,  selbst  er¬ 
stellen.  Es  werden  dabei  aber  nur 
die  vorhandenen  Möglichkeiten  des 
Druckers  genutzt.  Umlaute  auf 
Commodore-Druckern  sind  des¬ 
halb  mit  Paperclip  nicht  möglich. 

Gut  in  Form 

Doch  nun  zu  den  Möglichkeiten 
der  Textbearbeitung  (Tabelle). 
Selbstverständlich  sind  umfangrei¬ 
che  Standard-Operationen  wie  Ver¬ 
schieben,  Kopieren,  Einsetzen  und 
Löschen  von  Textteilen  möglich. 
Sehr  einfach  und  elegant  gelöst  ist 
hierbei  das  Einschreiben  von  Text¬ 
teilen,  das  über  die  Commodore- 
Taste  eingeleitet  und  wieder  been¬ 
det  wird.  Die  übrigen  Manipulatio¬ 
nen  sind  in  größerem  Rahmen  lei¬ 
der  nur  zeilenweise  durchzuführen. 
Innerhalb  einzelner  Absätze  kann 
man  diese  Operationen  aber  auch 
zeichenweise  definieren.  Das  be¬ 


ginnt  zunächst  immer  mit  der  Kenn¬ 
zeichnung  des  zu  verändernden 
Textteiles,  gefolgt  von  der  eigentli¬ 
chen  Operation.  Sehr  umfangreich 
und  mächtig  ist  dabei  die  Replace- 
Funktion  ausgefallen.  Man  kann  da¬ 
mit  einzelne  Textstellen,  die  immer 
wieder  im  Text  Vorkommen,  aus- 
tauschen.  Diese  Funktion  funktio¬ 
niert  auch  »global«,  das  heißt  über 
mehrere  aneinandergekettete  Text¬ 
dateien  hinweg.  Außerdem  kann 
man  auch  sogenannte  Jokerzeichen, 
wie  sie  auch  beim  Arbeiten  mit  der 
Floppy  Vorkommen,  einsetzen  und 
diese  Funktion  damit  noch  effekti¬ 
ver  nutzen.  Völlig  aus  dem  Rahmen 
üblicher  Textprogramme  fällt  die 
Möglichkeit  auch  einzelne  Spalten 
und  ganze  Textblöcke  zu  manipulie¬ 
ren.  Dabei  sind  nicht  nur  die  schon 
erwähnten  Funktionen  wie  Erset¬ 
zen,  Löschen  und  Kopieren  möglich, 
sondern  auch  Rechenfunktionen. 
Geradezu  sensationell  ist  in  diesem 
Zusammenhang  die  Möglichkeit  in 
Spalten  angeordnete  Tabellen  nach 
mehreren,  selbstgewählten  Schlüs¬ 
seln  sortieren  zu  können.  Diese 
Funktionen  sind  besonders  bei  Ta¬ 
bellenkalkulationen  (wohlgemerkt 
innerhalb  der  Textverarbeitung) 
oder  Abrechnungsformularen  wich¬ 
tig.  Um  einer  solchen  Tabelle  bei 
der  Bearbeitung  mehr  Raum  geben 
zu  können,  kann  man  die  40-Zei- 
chen-Darstellung  aufgeben  und  sie 
bis  auf  250  Zeichen  pro  Zeile  aus¬ 
dehnen.  Dabei  wird  horizontales 
Scrolling  verwendet,  um  alle  Berei¬ 
che  des  Textes  erreichen  zu  können. 
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Die  Formatierungsmöglichkeiten 
für  den  Ausdruck  sind  ebenfalls 
vielfältig  und  sehr  umfangreich.  Das 
beginnt  schon  beim  Setzen  des 
rechten  und  linken  Randes.  Man 
kann  hier  zunächst  einmal  einen  fe¬ 
sten  Rahmen  stecken,  der  aber  je¬ 
derzeit  wieder  durch  relative  Ände¬ 
rungen  manipulierbar  ist.  Soll  bei¬ 
spielsweise  weiter  hinten  im  Text  um 
fünf  Zeichen  weiter  eingerückt  wer¬ 
den,  so  kann  man  diese  Änderung 
auch  relativ  angeben.  Wird  nun  die 
Grundformatierung  am  Anfang  ge¬ 
wechselt,  so  ändert  sich  der  Druck¬ 
beginn  des  Textes  ab  der  bewußten 
Stelle  weiterhin  um  fünf  Zeichen  re¬ 
lativ  zur  neuen  Formatierung.  Man 
kann  an  jeder  Stelle  des  Textes  ei¬ 
nen  Seitenumbruch  beim  Ausdruck 
erzwingen.  Sehr  einfach  ist  auch  die 
jederzeit  mögliche  Änderung  der 
Schreibdichte  von  Pica  über  Elite 
bis  hin  zur  Schmalschrift.  Unterstrei¬ 
chen,  Fettdruck  und  Schrägschrift 
werden  durch  spezielle  Zeichen  gut 
unterstützt.  Diese  Druckänderun¬ 
gen  werden  übrigens  bei  der  forma¬ 
tierten  Ausgabe  auf  dem  Bildschirm 
berücksichtigt  und  dargestellt  .  So  ist 
jede  unterstrichene  Stelle  bei  der 
formatierten  Ausgabe  wirklich  un¬ 


terstrichen.  Fettdruck  und  Schräg¬ 
schrift  werden  invers  dargestellt. 
Natürlich  kann  man  auch  Subscript 
und  Superscript  einsetzen.  Beson¬ 
ders  interessant  ist  hierbei  die  Tat¬ 
sache,  daß  bei  Druckern,  die  über 
diese  Druckfunktionen  gar  nicht 
verfügen,  durch  mehrfaches  Ausge¬ 
ben  einer  Zeile  Super-  und  Sub¬ 
script  doch  realisiert  werden.  Die 
Schrift  wird  eben  bei  Superscript 
über  dem  eigentlichen  Haupttext 
und  bei  Subscript  darunter  ge¬ 
druckt.  Ferner  kann  man  jederzeit 
zwischen  linksbündiger,  zentrierter 
und  rechtsbündiger  Ausgabe  des 
Textes  auf  dem  Drucker  hin-  und 
herschalten.  Auch  der  Spalten¬ 
druck,  bei  dem  die  Druckzeilen 
durch  Einfügen  zusätzlcher  Leerzei¬ 
chen  auf  eine  konstante  Länge  ge¬ 
bracht  werden,  wird  unterstützt. 
Kopf-  und  Fußzeilen  können  jeder¬ 
zeit  im  Text  plaziert  werden  und  wer¬ 
den  dann  bei  jeder  nachfolgenden 
Druckseite  oben  und  unten  ange¬ 
fügt.  Leider  können  diese  beiden 
Texte  nur  eine  Zeile  umfassen,  was 
sich  in  der  Praxis  störend  auswirken 
kann.  Abgerundet  werden  die  For¬ 
matierungsmöglichkeiten  durch  Be¬ 
fehle,  die  an  bestimmter  Stelle  den 


Druck  anhalten,  um  zum  Beispiel 
das  Typenrad  zu  wechseln,  oder  die 
das  Senden  spezifischer  Drucksteu¬ 
erzeichen  erlauben. 

Ein  Problem,  das  beim  Schreiben 
von  Texten  auf  dieser  Art  von  Text¬ 
programmen  entsteht,  ist,  daß  man 
vorher  me  genau  weiß,  wie  später 
der  fertige  Text  beim  Ausdruck  aus- 
sehen  wird.  Besonders  deutlich 
wird  dieses  Manko,  wenn  man  an 
lange  Wörter  denkt,  die  eine  Zeile 
ganz  schön  »zerrupfen«  können.  Um 
dies  abzumildern,  kann  man  einen 
sogenannten  bedingten  Trennungs¬ 
strich  in  ein  solches  Wort  einsetzen. 
Steht  das  Wort  später  beim  Aus¬ 
druck  mitten  in  der  Zeile,  wird  es 
normal  zusammengeschrieben. 
Steht  es  aber  am  Ende  einer  Zeile, 
wird  es  an  der  vorher  festgelegten 
Stelle  getrennt  und  ein  Trennungs¬ 
strich  ein  gefügt.  Wichtig  ist  ferner 
die  Möglichkeit  ein  festes  Leerzei¬ 
chen  (mit  Shift  Space)  zwischen  zwei 
Wörter  zu  setzen,  die  nicht  vonein¬ 
ander  getrennt  werden  sollen.  Dies 
ist  besonders  beim  oben  erwähnten 
Spaltendruck  von  Vorteil,  da  hier  an 
dieser  Stelle  keine  zusätzlichen 
Leerzeichen  eingefügt  werden.  Ei¬ 
ne  sehr  nützliche  Einrichtung  ist  die 


Fehlerteufelchen 


ProDat,  Sonderheft  5,  Seite  68 

In  der  Zeile  2980  muß  der  letz¬ 
te  Befehl  »GO  S«  ersetzt  werden 
durch  »GOSUB  2970«.  Außer¬ 
dem  sind  alle  Leerzeichen  vor 
beziehungsweise  nach  Basic- 
Befehlen  zu  löschen,  da  das  Pro¬ 
gramm  sonst  nicht  lauffähig  ist. 

Soft  Scrolling  auf  dem  C  64,  Sonderheft 
4,  Seite  111 

Das  Programm  »Beispiel  Nr.  3« 
ist  so,  wie  es  veröffentlicht  wur¬ 
de,  nicht  lauffähig.  Folgende  Zei¬ 
len  sind  zu  ändern: 

20  PRINT  CHR$(147);:GOSUB 
140 

160  IF  S  =  6149  THEN  180 
200  DATA  190,  16,  245,  173,  39,  4, 
133,  251 

220  DATA  202,  224,  255,  208,  243, 
165,  251 

230  DATA  141, 0, 4, 173, 22, 208, 41, 
248 

240  DATA  141,  22,  208,  96 


Hypro-Copy,  Sonderheft  5,  Seite  70 

Im  MSE-Listing  wurden  zwei 
Zahlen  unleserlich  gedruckt. 
Die  dritte  Zahl  in  Zeile  »09E1«  ent¬ 
spricht  »85«  und  vierte  Zahl  in 
Zeile  »09E9«  »fO«. 

Programm  Service,  Ausgabe  10,  Seite 
161 

Die  Bestellnummer  der  Leser- 
Service-Diskette  für  die  Ausga¬ 
be  10/85  ist  falsch.  Sie  muß  lau¬ 
ten  »L6  8510A«. 

Ausgabe  10,  Seite  155 

Die  64'er  Ausgaben  1,  2,  3/84, 
können  Sie  natürlich  nicht  nach¬ 
bestellen.  Die  erste  Ausgabe 
der  64'er  erschien  4/84. 

Hardcopy  ITOH  8510  mit  HI-EDDI,  Son¬ 
derheft  4,  Seite  59 

Dort  muß  stehen: 

Bild-Nr.  0  =  0  =  >  kein  Bild, 
Startspalte  =  40 
Bild.Nr.  0  =  0  =  >  kein  Bild, 
Endspalte  =  0 

SPC  +  (40  —  Startspalte)*8  + 
Endspalte*8<  =640 
Hypra-Text,  Ausgabe  10,  Seite  67  ff 

In  Zeile  8015  ist  der  Befehl 
»GOTOl«  zu  ersetzen  durch 
»G0T026«.  In  Zeile  10040  muß 
statt  .GOTO  8012«  »GOTO  8013« 
stehen.  In  der  Zeile  30330  ist 
» *  00  *  + «  ersatzlos  zu  streichen. 
In  der  Zeile  150  ist  der  Befehl 
THEN  105  zu  ersetzen  durch 
THEN  150. 

Neues  vom  SMON,  Ausgabe  10,  Seite  87 

Damit  auch  der  Befehl  »z«  funk¬ 
tioniert,  ist  in  die  Adresse  Start¬ 
adresse  SMON  +  38cd  eine  0  zu 
POKEn. 


Scroll-«-  line,  Ausgabe  6,  Seite  60 

Um  Pseudoschirme  auf  Kas¬ 
sette  zu  speichern  beziehungs¬ 
weise  von  der  Kassette  zu  laden 
ist  nicht  die  Zeile  17500  sondern 
die  Zeile  3940  beziehungsweise 
4170  anzuspringen. 


Der  neue  C  128  iSt  seit  eini¬ 
gen  Wochen  im  Handel. 
Vielleicht  gehören  Sie  ja  zu 
den  ersten  Besitzern  dieses 
vielseitigen  und  leistungsfä¬ 
higen  neuen  Computers  und 
haben  schon  erste,  tieferge¬ 
hende  Erfahrungen  damit 
gesammelt  oder  interessan¬ 
te  Programme  dafür  ge¬ 
schrieben? 

In  diesem  Fall  sollten  Sie 
Ihre  Erfahrungen  nicht  für 
sich  behalten.  Tragen  Sie 
doch  einfach  mal  zusammen, 
was  Sie  über  den  C  128  her¬ 
ausgefunden  haben,  das 
nicht  im  Handbuch  steht.  Wir 
werden  alle  guten  Tips  und 
Tricks  zu  diesem  Computer 
sowie  die  besten  Program¬ 
me  dafür  im  64’er-Magazin 
veröffentlichen. 

Bitte  vermerken  Sie  bei  al¬ 
len  Zusendungen,  mit  wel¬ 
cher  Gerätekonfiguration 
Sie  arbeiten  und  ob  sich  Ihr 


Hardcopy  CP-80x,  Sonderheft  4, 

Seite  55 

Die  Hardcopy  wird  kompri¬ 
miert  ausgedruckt.  Um  dies  zu 
verhindern,  muß  Zeile  470  geän¬ 
dert  werden.  470  DATA  27,  32, 
210,  255,  169,  75,  32.  210,  1010. 


Beitrag  auf  den  128-Modus 
oder  auf  den  CP/M-Modus 
bezieht.  Beiträge  für  den  C 
64-Modus  schicken  Sie  bitte 
nicht  unter  dem  Stichwort  C 
128,  sondern  als  normale  C 
64-Programme  oder  Tips 
ein.  Bei  Programmeinsen¬ 
dungen  legen  Sie  bitte  unbe¬ 
dingt  eine  Diskette/Kasselle 
mit  Ihrem  Programm  sowie 
eine  möglichst  ausführliche 
Beschreibung  bei.  Selbst¬ 
verständlich  werden  alle  ab¬ 
gedruckten  Beiträge  ange¬ 
messen  honoriert  —  es  win¬ 
ken  bis  zu  2000  Mark,  wenn 
Ihr  Programm  Listing  des 
Monats  wird. 

Schicken  Sie  Ihre  Tips  und 
Programme  an 
Markt  &  Technik 
Verlag  Aktiengesellschaft 
Redaktion  64’er 
Kennwort:  C  128 
Hans-Pinsel-Str.  2 
8013  Haar  bei  München 


Wir  suchen  die  ersten  128er  Profis 
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Definition  von  Redewendungen. 
Einmal  am  Anfang  definiert  sind  sie 
schnell  per  Tastendruck  abrufbar 
und  eine  echte  Hilfe  beim  Schrei¬ 
ben,  da  man  im  allgemeinen  immer 
wieder  einmal  solche  festen  Rede¬ 
wendungen  im  Text  benutzt.  Leider 
ist  der  vorhandene  Textspeicher 
ziemlich  begrenzt.  Er  beträgt  bei  40 
Zeichen  pro  Zeile  424  Zeilen  insge¬ 
samt.  Das  sind  etwa  17  KByte  oder  68 
Blocks  auf  der  Diskette.  Dafür  ist 
aber  das  gesamte  Programm  kom¬ 
plett  im  Speicher,  so  daß  nichts 
mehr  nachgeladen  werden  muß. 

Komfortable 

Diskettenbefehle 

Die  Diskettenfunktionen  sind  sehr 
umfangreich  und  gut  gelungen.  Be¬ 
sonders  das  Laden  von  Texten  ist 
sehr  einfach.  Dazu  ruft  man  einfach 
das  Inhaltsverzeichnis  der  Diskette 
auf  und  kann  sofort  aus  der  Bild¬ 
schirmauflistung  den  Namen  des  zu 
ladenden  Textes  entnehmen.  Natür¬ 
lich  ist  auch  das  Einfügen  von  der 
Diskette  in  den  im  Hauptspeicher 
vorhandenen  Text  möglich.  Selten 
anzutreffen  ist  dagegen  das  Abspei¬ 
chern  einzelner  Textteile,  was  be¬ 
sonders  beim  Zerschneiden  länge¬ 
rer  Texte  sehr  sinnvoll  ist.  Bemer¬ 
kenswert  ist  außerdem  die  Möglich¬ 
keit  die  Texte  nicht  nur  im  speziellen 
Paperclipformat  abzuspeichem, 
sondern  auch  ganz  normale  sequen¬ 
tielle  Files  zu  erzeugen.  Man  kann 
also  ungehindert  Daten  von  ver¬ 
schiedenen  Datenverarbeitungs¬ 
programmen  empfangen  und  verar¬ 
beiten  sowie  Daten  an  sie  zurückge¬ 
ben.  Sogar  die  formatierte  Ausgabe, 
so  wie  sie  zum  Drucker  geht,  kann 
auf  die  Diskette  umgelenkt  werden. 
Auch  die  Kassette  wird  mit  den  ent¬ 
sprechenden  Lade-  und  Speicher¬ 
befehlen  unterstützt. 

Paperclip  unterstützt  nahezu  alle 
Drucker,  die  an  den  C  64  anschließ¬ 
bar  sind.  Auf  der  Diskette  sind  spe¬ 
zielle  Druckeranpassungen  für 
über  30  Drucker  vorhanden.  Wer 
damit  immer  noch  nicht  zurecht¬ 
kommt,  kann  sich  auch  seine  eigene 
Druckerdatei  zusammenstellen.  Be¬ 
sonders  gelungen  ist  dabei  die 
Möglichkeit  eine  passende  Druk- 
kerdatei  über  ein  Dienstprogramm 
mit  dem  Hauptprogramm  zu  ver¬ 
schmelzen,  so  daß  automatisch  mit 
dem  Laden  dieser  speziellen  Va¬ 
riante  des  Programmes  die  richtige 
Druckereinstellung  vorhanden  ist. 
Außerdem  kann  man  so  auch  ande¬ 
re  Daten  wie  Textfarben  fest  auf  in¬ 
dividuelle  Werte  emstellen.  Doch 


zurück  zur  Druckeranpassung.  Man 
kann  nicht  nur  über  den  seriellen 
Bus  arbeiten,  sondern  auch  über  die 
am  User-Port  vorhandene  RS232- 
Schnittstelle.  Auch  Centronics- 
Drucker  sind  am  User-Port  direkt 
anschließbar,  die  Ansteuersoftware 
ist  in  Paperclip  enthalten.  So  dürfte 
es  mit  dem  Anschluß  auch  der  exo¬ 
tischsten  Drucker  und  Schreibma¬ 
schinen  keine  Probleme  geben. 

Formbriefe  wie  Rundschreiben, 
Abrechnungen  und  ähnliches  sind 
auch  kein  Problem  mit  dieser  Text¬ 
verarbeitung.  Die  jeweils  in  den 
Formbrief  einzusetzenden  Informa¬ 
tionen  werden  einem  zusätzlichen 
Datensatz  entnommen,  der  auch 


Leistungsübersicht 

—  Editieren  (zeilen-  und  zeichen¬ 
weise) 

—  Kopieren,  Verschieben  von 
Textteilen 

—  Tabulatoren 

—  Blockverschiebebefehle 

—  Tabellensortierung  nach  meh¬ 
reren  Schlüsseln 

—  Rechenfunktion 

—  80-Zeichen-Darstellung 

—  Speichern  einzelner  Textteile 

—  unkompliziertes  Laden  aus 

—  tSÜiÄl^ichem 

und  laden 

—  Kassettenbedienung  mit  Verify 

—  Redewendungen 

—  umfangreicher  Replace-Befehl 
mit  Jokerzeichen 

—  beliebiger  Zeichensatz  ladbar 

—  Sonderzeichen  definierbar 


—  relatives  Setzen  der  Texträn¬ 
der 

—  linksbündig,  Zentrierung, 
rechtsbündig 

—  Blocksatz 

—  Kopf-  und  Fußzeile 

—  Programmierte  Pause  beim 
Ausdruck 

—  Druckersteuerzeichen 

—  Unterstreichen 

—  Fettschrift 

—  Schrägschrift 

—  Super-  und  Subscript 

—  Formbriefausdruck 

—  Zeilenbreite  beliebig  einstell¬ 
bar 

—  viele  Druckeranpassungen 

—  eigene  Druckerdatei  definier¬ 
bar 

—  Druckerfile  ins  Hauptpro¬ 
gramm  fest  installierbar 

—  RS232-Interface-Unterstützung 

—  Centronics-Schnittstelle 

—  Rechtschreibüberprüfung 


Tabelle.  Alles  auf  einen  Blick  — 
die  Funktionen  von  Paperclip 


von  entsprechenden  Datenverar¬ 
beitungsprogrammen  kommen 
kann.  Damit  kann  man  eine  Verbin¬ 
dung  zwischen  Textverarbeitung 
und  Adressenverwaltung  herstei¬ 
len. 

Rechtschreibung 

Ein  ganz  besonderes  Schmankerl 
ist  die  eingebaute  Überprüfung  des 
Textes  auf  Rechtschreibfehler.  Lei¬ 
der  ist  zwar  der  Grundwortschatz 
von  20000  Wörtern  in  englisch,  aber 
man  kann  diesen  Grundwortschatz 
um  mehr  als  5000  Begriffe  erweitern 
und  damit  durchaus  effektiv  arbei¬ 
ten.  Unterstützt  wird  man  dabei 
durch  die  kurze  Überprüfungszeit, 
die,  egal  wie  lang  der  Text  ist,  etwa 
3  Minuten  dauert,  und  die  Entschei- 
dungshüfe  bei  unbekannten  Wör¬ 
tern.  Man  wählt  hier  einfach  über 
die  Funktionstasten  was  man  haben 
will:  Überspringen,  Verbessern 
oder  Einspeichern  in  den  Wort¬ 
schatz. 

Die  beiliegende  Anleitung  ist  sehr 
übersichtlich  und  von  einem  Punkt 
zum  nächsten  aufbauend  geschrie¬ 
ben,  aber  bis  jetzt  leider  nur  in  engli¬ 
scher  Sprache  erhältlich. 

Vielseitigkeit  ist  Trumpf 

Das  Programm  besticht  durch 
den  Reichtum  seiner  Möglichkeiten 
wie  sequentielle  Datenspeicherung 
auf  Wunsch,  umfangreiche  Textma- 
mpulationen,  interessante  Extra¬ 
funktionen  und  die  eingebaute 
Rechtschreibüberprüfung.  Die  we¬ 
nigen  Schwachpunkte,  die  das  Pro¬ 
gramm  besitzt,  verblassen  ange¬ 
sichts  der  vielen  und  gut  gelösten 
Details.  Leider  wird  dieses  Pro¬ 
gramm  noch  nicht  in  einer  deut¬ 
schen  Fassung  mit  Umlauten,  deut¬ 
schem  Handbuch  und  entsprechen¬ 
dem  Wortschatz  bei  der  Recht¬ 
schreibüberprüfung  vertrieben.  So 
muß  man  sich  auf  die  immerhin  um¬ 
fangreichen  Möglichkeiten  zur  Zei¬ 
chensatzänderung  und  ähnliches 
verlassen.  Trotzdem  ist  das  Pro¬ 
gramm  seinen  Preis,  der  bei  zirka 
200  Mark  liegt,  in  vollem  Umfange 
wert.  Warum  es  in  Deutschland  so 
unbekannt  ist,  ist  angesichts  der  Lei¬ 
stungen,  die  es  bietet,  nicht  ganz  ein¬ 
zusehen.  Eine  Mitschuld  trifft  da 
ganz  bestimmt  den  Hersteller,  der 
sich  nicht  intensiv  genug  um  den 
deutschen  Markt  bemüht  und  keine 
deutschsprachige  Version  dieses 
Programms  vertreibt.  Aber  was 
nicht  ist,  kann  ja  noch  werden.  Ver¬ 
dient  hätte  es  das  Programm  jeden¬ 
falls.  (Karl  Hinsch/aw) 

Info.  Rushware,  An  der  Gumpgesbrücke  24,  4044  Kaarst  2 
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3.  Manueller  Router.  Dadurch 
kann  eine  Platine,  die  mit  dem  Auto- 
Router  bearbeitet  wurde,  nachträg¬ 
lich  geändert  werden.  Der  Manuell- 
Router  ist  voll  bildschirmorientiert, 
dabei  kann  der  Bildschirm  vertikal 
und  horizontal  gescrollt  werden. 
Bauteile  oder  auch  einzelne  Punkte 
können  gedreht,  verschoben,  ge¬ 
löscht  und  gesetzt  werden.  Natür¬ 
lich  lassen  sich  in  dieser  Routine  Lei¬ 
terbahnen  löschen  und  verlegen. 
Auch  kann  von  hier  die  jeweils  ak¬ 
tuelle  Platinenseite  aufgerufen  wer¬ 
den,  die  sich  durch  die  Gehäusefar¬ 
ben  der  Bauteile  unterscheiden. 

4.  Bearbeitung  von  doppelseiti¬ 
gen  Platinen  sowohl  mit  dem  Auto- 
Router,  wie  aber  auch  mit  dem 
Manuell-Router. 

5.  Integrierte  Bauteil-Bibliothek 

6.  In  die  Bauteil-Bibliothek  lassen 
sich  beliebig  viele  Bauteile  eintra¬ 
gen.  Diese  einmal  definierten  Bau¬ 
teile  können  nach  Bedarf  im  Haupt¬ 
programm  beliebig  oft  abgerufen 
werden. 

7.  Auf  folgenden  Geräten  läßt  sich 
das  fertige  Layout  drucken  und  zwar 
normal  und  spiegelverkehrt: 

MPS  802  (1:1  und  2:1) 

Commodore  1526  (1:1  und  2:1) 

FX-80  und  Kompatible  (2:1) 

Überzeugen  Sie  sich  selbst  von 
der  Leistungsfähigkeit  dieses 
Platinen-Layout-Systems.  Bild  1  wur¬ 
de  mit  einem  FX-80  und  Bild  2  von  ei¬ 
nem  MPS  802  erstellt.  Beide  Bilder 
wurden  im  Verhältnis  2:1  ausge¬ 
druckt  und  anschließend  auf  50  Pro¬ 
zent  verkleinert.  Eine  Verkleine¬ 
rung  auf  50  Prozent  erreichen  Sie 
beim  FX-80  durch  zweimaliges  Ver¬ 
kleinern  auf  DIN  A5. 

Beim  MPS  802  ist  zuerst  auf  DIN  A5 
und  anschließend  noch  einmal  um 
den  Faktor  0.8  zu  verkleinern. 

(Eckhard  Krabel/ah) 


Hypra-PLATOS 

Dieses  Platinen-Layout- 
Operation-System  für  den 
C  64  ist  ein  Leckerbissen 
und  ein  Muß  für  jeden 
Elektronikbastler. 

Endlich  ist  Schluß  mit  der 
mühseligen  Kleberei  von 
Platinen-Layouts. 

Das  spart  neben  Geld, 
auch  Zeit  und  Nerven. 

ancher  Hobbyelektroniker 
wird  mit  Grausen  an  die  müh- 
I  selige  Layout-Arbeit  seiner 
selbstentworfenen  Schaltungen 
denken.  Layout-Bearbeitung  mit 
dem  Computer  wäre  das  Stichwort. 
Aber  bloß  der  Gedanke  an  die 
sündhaft  teuren  Platinen-Layout- 
Systeme,  sogenannte  CAL-Anlagen, 
bei  denen  es  sich  um  extrem  schnel¬ 
le  Computer  mit  sehr  hoher  Grafi- 
kauflösung  (2048*2048  Punkte)  han¬ 
delt,  läßt  alle  Hoffnungen  schwin¬ 
den.  Für  die  billigsten  Systeme  die¬ 
ser  Art  ist  immerhin  die  stolze  Sum¬ 
me  von  etwa  20000  Mark  zu  zahlen; 
und  welcher  Hobbyelektroniker  ist 
willens  in  seine  selbstentworfenen 
Schaltungen  eine  derartige  Summe 
zu  investieren?  Wohl  keiner.  Es  muß¬ 
te  ein  Platinen-Layout-System  für 
den  C  64  her,  das  sich  der  engagier¬ 
te  Hobbyelektroniker  finanziell  lei¬ 


sten  kann.  Damit  auch  die  weniger 
Bemittelten  in  den  Genuß  kommen, 
ihre  Layout-Bearbeitung  vom  Com¬ 
puter,  sprich  C  64,  erledigen  zu  las¬ 
sen,  ist  das  hier  vorgestellte  Pro¬ 
gramm  entwickelt  worden.  Keine 
Frage,  der  C  64  ist  nur  bedingt  zur 
Entwicklung  von  Layouts  zu  verwen¬ 
den,  und  entsprechend  sind  die 
Möglichkeiten  der  Auflösung  und 
der  Rechengeschwindigkeit.  Durch 
horizontales  und  vertikales  Scrollen 
kann  aber  ein  ausreichend  großes 


Feld  von  immerhmToO  '  ^S  Punkten 
(etwas  größer  als  eine  Europakarte) 
mit  einer  Auflösung  von  %o  Zoll  (etwa 
1,27  mm)  bearbeitet  werden. 

Die  überragenden  Leistungs¬ 
merkmale  von  Hypra-Platos: 

1.  Das  Programm  ist  voll  menüge¬ 
steuert. 

2.  Automatisches  Verlegen  von 
Leiterbahnen  (Auto-Router). 
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Layout  erstellt  mit  dem  FX-80  (1:1) 
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Mit  Lyrik  3.0  haben  Sie  schnell 
einen  Lyrikband  zusammen. 
Was  die  Welt  allerdings  von 
Computer-Dichtung  hält,  ist  fraglich. 
Wir  in  der  Redaktion  waren  jeden¬ 
falls  über  die  Ergebnisse  erstaunt, 
denn  Lyrik  3.0  reiht  nicht  nur  sinnlos 
Wörter  aneinander.  Vielmehr  wer¬ 
den  semantisch  und  syntaktisch  kor¬ 
rekte  —  Schreibfehler  innerhalb 
des  Programms  ausgenommen  — 
Sätze  gebildet. 

Allen  Anthropozentrikern  sei  ge¬ 
sagt,  daß  die  Gedichte,  die  von  Lyrik 
3.0  produziert  werden,  per  definitio- 
nem  keinen  »Sinn«  haben,  was  auch 
immer  mit  diesem  Wort  gemeint  ist. 

Aber  vielleicht  besteht  der  Reiz 
dieser  Gedichte  gerade  darin,  daß 
durch  die  oftmals  absurden  Kombi¬ 
nationen  von  Wörtern  neue  unge¬ 
wöhnliche  Metaphern  gebildet  wer¬ 
den: 

Lassen  Sie  sich  doch  einfach  mal 
ein  Gedicht  von  Lyrik  3.0  aus- 
drucken,  und  lesen  Sie  es  sich  bei 
Kerzenschein  oder  flackernden  Ka¬ 
minfeuer  in  aller  Ruhe  durch: 
»Goldene  Ränke  zerschmettern  eme 
Hoffnung. 

Das  Auge  schreit. 

Da  immer  wieder  pulsierende 
Welten  verwehen,  stirbt  das 
Universum.« 

(Dirk  Meier/hm) 


Lyrik-Maschine 

Der  »Versifikator«  in  George  Orwells  Roman 
»1984«  ist  eine  Maschine,  die  Gedichte  und  Lieder 
schreiben  kann,  'yrik  3.0  macht  auch  aus  dem 
C  64  einen  »Versifikator«. 


Kein  »erdichteter«  Lebenslauf 

Ich  bin  am  5.8.1967  geboren 
und  gehe  auf's  Freiherr-von- 
Stein-Gymnasium  in  Bünde. 

Meinen  C  64  erwarb  ich  vor  et¬ 
wa  zwei  Jahren.  Einer  Laufbahn 
als  Starprogrammierer  stand  nur 
noch  mein  Unwissen  im  Wege, 
welches  ich  durch  exzessives  Be¬ 
nutzen  eben  jenes  erwähnten 
Computers  abzubauen  suchte. 

Nach  einigen  Vorgeplänkeln 
im  Beginners-all-purpose-sym- 
bolic-instruction-code  wurde  es 
plötzlich  ernst:  ich  erlernte  6510- 
Assembler. 


Nachdem  ich  meine  ersten  Ma¬ 
schinencode-Routinen  zusam¬ 
mengeflickt  hatte,  wußte  ich  es 
plötzlich:  Dies  ist  meine  Berufung! 
Ich  jonglierte  also  tagelang  mit 
LDA,  CPX,  PHA  und  der  Basic- 
Compiler  wurde  mein  natürli¬ 
cher  Feind. 

Eine  Sprache  wie  Lisp  hinge¬ 
gen  faszinierte  mich  sofort,  da 
das  Thema  »Artificial  Intelligen¬ 
ce«  einen  besonderen  Einfluß  auf 
mich  ausübte. 

Meine  Gedanken  hüpften  also 
so  zwischen  Assembler,  Lisp  und 
AI  hin  und  her,  als  ich  urplötzlich 
von  einer  Welle  der  Nostalgie 
überspült  wurde.  Platsch!  Ich  ent- 
sann  mich  des  guten  alten  Basics. 

Ich  setzte  mich  also  vor  meinen 
C  64,  zwang  die  Schwarzweiß- 
Glotze  mit  brutaler  Gewalt  dazu, 
ein  einigermaßen  anständiges 
Bild  zu  erzeugen,  nahm  die  klas¬ 
sische  Programmierhaltung  Nr. 
8/c  an  und  legte  los. 

Aber  was  sollte  der  Computer 
denn  produzieren?  Bunte  Bild¬ 
chen,  monumentale  Oratorien 
oder  etwa ...  Gedichte? 


Da  ich  Absolvent  eines 
Deutsch-Hochleistungskurses  an 
unserer  Schule  bin,  lag  doch 
nichts  näher,  als  den  C  64  lyri¬ 
sche,  epische  oder  dramatische 
Texte  verfassen  zu  lassen.  Ich  ent¬ 
schied  mich  für  die  erste  der  drei 
poetischen  Gattungen.  Es  ent¬ 
stand  »Lyrik  1.0«. 

Dieses  war  nun  indes  von  der 
Struktur  her  gar  widerwärtig  auf¬ 
gebaut,  so  daß  ich  es  verschämt 
auf  einer  selten  benutzten  Disket¬ 
te  vor  den  prüfenden  Augen  der 
Computerwelt  verbarg. 

Die  zweite  Version  dagegen 
war  vom  Prinzip  her  goldrichtig 
gestaltet,  jedoch  war  ich  an  den 
Programmteil  »Deklination«  mit 
erschreckender  Unsystematik 
herangegangen,  so  daß  ich  die¬ 
ses  am  Ende  verpfuschte  und 
»doppelplusungut«  arbeitende 
Programm  ebenfalls  verschwin¬ 
den  lassen  mußte. 

Doch  dann:  Lyrik  3.0  war  fertig¬ 
gestellt.  Und  wer  beschreibt  das 
Staunen  der  mich  umgebenden 
Menschenmassen?  Lyrik  3.0 
funktionierte.  (Dirk  Meier) 
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Eingabehilfe _ C  64/VC  20 

Eingabehilfen 
mit  Check¬ 
summer  64V3 
und  MSE 

Fehler  beim  Eintippen  von  Listings 
können  ärgerlich  sein  —  wenn  man 
sie  nicht  rechtzeitig  bemerkt.  64’er- 
Programme  sind  jedoch  problemlos 
einzugeben. 

Bei  beiden  Programmen  handelt  es  sich  um  Eingabeerleich¬ 
terungen  unserer  Listings.  Ferner  werden  alle  Tippfehler  be¬ 
merkt  und  angezeigt. 

Mit  dem  Checksummer  64V3  läßt  sich  überprüfen,  ob  eine 
Basic-Zeile  korrekt  eingegeben  wurde.  Dazu  muß  zuerst  das 
Programm  Checksummer  64V3  geladen  und  mit  RUN  gestar¬ 
tet  werden.  Ist  das  geschehen,  erscheint,  sobald  Sie  eine  Zeile 
eingeben  und  mit  RETURN  abgeschlossen  haben,  links  oben 
auf  dem  Bildschirm  eine  geklammerte  Zahl  in  reverser  Darstel¬ 
lung.  Bei  dieser  Zahl  handelt  es  sich  um  eine  Prüfsumme.  Sie 
muß  rrv t  der  ebenfalls  geklammerten  Zahl  am  Ende  jeder  Basic- 
Zeile  übereinstimmen.  Tut  sie  das  nicht,  haben  Sie  einen  Tipp¬ 
fehler  gemacht.  Die  Prüfsummen  im  Listing  dürfen  nicht  mit  ab¬ 
getippt  werden.  Basic-Listings  enthalten  keinerlei  Steuer-  und 
Grafikzeichen,  dafür  aber  unter-  beziehungsweise  überstri- 
chene  Zeichen  und  Wörter  in  geschweiften  Klammern.  Dabei 
bedeuten: 

unterstrichenes  Zeichen  =  SHIFTTaste  +  Zeichen 
überstrichenes  Zeichen  =  Commodore-Taste  +  Zeichen 
die  Wörter  in  geschweiften  Klammern: 

UP,  DOWN,  RIGHT,  LEFT  =  Cursorsteuertasten 

Ferner  werden  alle  Farben  ausgeschrieben.  Die  Farbe,  de¬ 
ren  Abkürzung  Sie  auf  der  Tastatur  des  C  64  wiederfinden,  er¬ 
reichen  Sie  über  die  Control-Taste  (CTRL)  beziehungsweise 
Commodore-Taste  plus  der  Farbtaste. 

Zahlen  in  geschweiften  Klammern  geben  an,  wie  oft  die  Ta¬ 
stenkombination  unmittelbar  hinter  der  Zahl  zu  drücken  ist, 
zum  Beispiel  2SPACE  =  2x  Leertaste. 

Das  Listing  zu  diesem  Checksummer  V3  finden  Sie  zum  er¬ 
stenmal  in  der  Ausgabe  8/85,  Seite  54,  und  ab  dem  Sonder¬ 
heft  4.  Alle  anderen  Checksummer-Listings  (vor  der  Ausgabe 
8/85;  diese  müssen  mit  dem  Checksummer  64V2  eingege¬ 
ben  werden)  sind  damit  hinfällig.  Die  ausführliche  Anleitung  aus 
diesen  Ausgaben  kann  jedoch  weiterhin  benutzt  werden. 

Der  MSE  unterstützt  die  Eingabe  von  Listings,  die  in  Maschi¬ 
nensprache  geschrieben  wurden.  Bei  ihm  handelt  es  sich  um 
einen  Maschinensprache-Editor,  der  Fehleingaben  aus¬ 
schließt.  Eine  abgetippte  Zeile  wird  nur  dann  angenommen, 
wenn  sie  richtig  eingegeben  wurde. 

Das  Listing  zum  MSE  mit  ausführlicher  Anleitung  finden  Sie 
in  den  Ausgaben  1/85  bis  6/85.  Auch  dieses  Programm  ist  auf 
jeder  Leserservice- Diskette  gespeichert. 

Außerdem  schicken  wir  Ihnen  gegen  Einsendung  eines  an 
Sie  selbst  adressierten  Briefumschlags  (Größe  DIN  C5  =  0,80 
Mark,  DIN  C4  =  1,10  Mark  Porto)  gerne  das  Listing  zum  MSE 
und  Checksummer  64V3  zu. 
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Lyrik- 

Maschine 

Durch  einen  intelligent  programmier¬ 
ten  Satzbaualgorithmus  erzeugt  die¬ 
ser  Lyrik-Generator  semantisch  korrek¬ 
te  Sätze.  Der  Wortschatz  läßt  sich 
leicht  erweitern. 

Die  folgende  Programmbeschreibung  zeigt  Ihnen,  wie  das 
Programm  funktioniert  und  Sie  Ihren  eigenen  Wortschatz  anle- 
gen  können.  Wie  stellt  das  Programm  nun  ein  Gedicht  her? 

Als  erstes  müssen  ihm  verschiedene  Parameter  übergeben 
werden: 

Anzahl  der  Strophen  (AZ),  Anzahl  der  Verse  innerhalb  jeder 
Strophe  (VA%(X)),  und  der  Satzbau  jedes  einzelnen  Verses 
(MN$(X)). 

Sofern  diese  Daten  nicht  von  Ihnen  eingegeben  werden, 
werden  AZ  und  das  Variablenfeld  VA%(X)  mit  geeigneten  Zu¬ 
fallszahlen  aufgefüllt,  während  der  Computer  die  Satzstruktu¬ 
ren  MN$(X)  aus  dem  »Satzbauten-Katalog«  CO$(X)  auswählt. 
Dieser  wird  bei  der  Initialisierung  aus  den  Daten  der  DATA- 
Zeilen  1000-2000  gebildet.  Diese  ganzen  Vorarbeiten  wer¬ 
den  im  Auto-Modus  in  den  Zeilen  814-818,  im  manuellen  Mo¬ 
dus  in  den  Zeilen  108-242  ausgeführt. 

Nun  kommt  der  weitaus  schwierigere  Teil:  Es  müssen  ganze 
deutsche  Sätze  gebildet  werden,  die  den  gewünschten  Satz¬ 
bau  besitzen  und  gleichzeitig  den  Regeln  der  deutschen  Spra¬ 
che  genügen. 

Wie  geht  das  nun  vor  sich? 

Der  C  64  holt  sich  den  Satzbau  des  aktuellen  Verses  aus 
MN$(X)  und  legt  ihn  in  W$  ab.  Dann  durchsucht  er  W$  nach  ei¬ 
nem  ihm  bekannten  Mnemonik  und  gibt  gegebenenfalls  eine 
Fehlermeldung  aus.  Wird  der  Mnemonik  erkannt,  so  springt 
das  Programm  in  die  entsprechenden  Routinen  zur  Ausfüh¬ 
rung  des  Befehls.  Die  Routinen  sind  teilweise  von  sehr  unter¬ 
schiedlicher  Komplexität.  So  wird  bei  der  Routine  UND  einfach 
nur  ein  »und«  an  den  bisherigen  Vers  angehängt.  Bei  der  Routi¬ 
ne  SUBJEKT  hingegen  wird  eine  ganze  Nominalphrase,  beste¬ 
hend  aus  Artikel,  Adjektiv  und  Substantiv,  generiert.  Dies  funk¬ 
tioniert  so:  Zuerst  werden  die  Parameter  des  Mnemonik — Arti¬ 
kel,  Adjektiv,  Kasus  und  Numerus  —  in  der  Variablen  EA.ED, 
EF.EP  eingelesen  (Zeile  322  ff). 

Da  der  Kasus  des  Adjektivs  und  des  Artikels  vom  Substantiv 
abhängt,  muß  dieses  zuerst  bestimmt  werden.  Dies  geschieht, 
wie  auch  alle  folgenden  Wortauswahlen,  per  Zufallsgenerator 
(Zeile  328).  Dann  wird  der  passende  Artikel  entweder  aus  der 
Tabelle  AR$(X)  (bestimmte  Artikel)  geholt  oder  selbst  gebildet 
(unbestimmter  Artikel)  und  mit  der  korrekten  Endung  aus  der 
Tabelle  EN$(X)  versorgt  (Zeilen  330-340).  Danach  wird  ein 
Adjektiv  ausgewählt  und  mit  der  entsprechenden  Endung  ver¬ 
sehen,  die  nicht  nur  vom  Kasus,  Genus  und  Numerus  des  Sub¬ 
stantives,  sondern  auch  vom  Artikel  abhängt.  Die  Endung  wird 
aus  den  Tabellen  D2(X)-D4(X)  herausgesucht  (Zeilen 
350-366).  Jetzt  fehlt  nur  noch  das  Substantiv.  Dieses  wurde 
ja  schon  ganz  am  Anfang  ausgewählt  und  muß  nun  die  passen¬ 
de  Endung  bekommen.  Da  ich  bis  dato  kein  Linguistiker  bin, 
hat  mich  dieser  Teil  fast  in  eine  Paranoia  getrieben.  Ich  habe 
es  aber  schließlich  geschafft,  aus  der  Endsilbe  und  den  darin 
enthaltenen  Vokalen,  dem  Kasus,  Genus  und  dem  Numerus 
die  richtige  Endung  zu  bestimmen,  zumindest  für  98  Prozent 


aller  Worte  (Bei  Fremdwörtern  kann  sich  das  Programm  even¬ 
tuell  auch  mal  irren).  Die  Parameterübergabe  erfolgt  in  den  Zei¬ 
len  370-378,  die  Endung  wird  in  den  Zeilen  930-966  be¬ 
stimmt. 

Sind  schließlich  gemäß  dem  Satzbau  in  W$  alle  Glieder  des 
Verses  bestimmt,  so  wird  der  erzeugte  Vers  ausgegeben  und 
das  Programm  fährt  mit  dem  nächsten  Vers  fort. 

Bei  Ergänzen  des  Wortschatzes  muß  beachtet  werden,  daß 
sich  im  Programmkopf  zu  den  einzelnen  Wortarten  je  ein  Zäh¬ 
ler  befindet  (zum  Beispiel  Q3),  der  um  1  erhöht  werden  muß, 
sobald  eine  DATA-Zeile  der  zugehörigen  Wortart  hinzugefügt 
wird. 

Wie  sehen  nun  die  einzelnen  DATA-Zeilen  aus? 

Wichtig  sind  hier  nur  die  Zeilen  mit  den  Nomen,  Adjektiven, 
den  Verben  und  den  Satzstrukturen,  die  im  folgenden  näher 
erklärt  werden  sollen. 

Nomen  (ab  Zeile  2200): 

DATA  MANN.MAENNER.MAENNLICHE.I 
Das  erste  Wort  ist  die  Singular-,  das  zweite  die  Pluralform. 
Danach  folgt  ein  Adjektiv.  Dieses  muß  im  Plural  stehen.  Das 
heißt,  es  muß  mit  einem  »e«  enden.  Die  Zahl  zum  Schluß  gibt 
das  Geschlecht  des  ersten  Wortes  an.  »1«  bedeutet  männlich, 
»2«  weiblich,  »3«  sächlich,  »4«  ein  Name. 

Verben  (ab  Zeile  6000): 

DATA  LAEUFT, LAUFEN, 1 

Das  erste  Wort  muß  eine  3.  Person,  Singular-Form  sein.  Das 
zweite  einfach  ein  Infinitiv.  Die  Zahl  zum  Schluß  gibt  an,  ob  das 
Verb  transitiv  (wie  beispielsweise  »schlagen«  oder  »messen«)' 
oder  intransitiv  (»schlafen«  oder  »zerbersten«)  ist.  Im  ersten 
Fall  muß  die  Zahl  0  sein,  im  zweiten  1.  Eine  2  würde  bedeuten, 
daß  das  Verb  eigentlich  beides  ist. 

Satzstrukturen  (ab  Zeile  1000): 

DAT/*  ”SIJB1001  VRB11”  ,  ”EIN  HUND  SCHLAEFT” 

Das  erste  Datum  ist  eine  korrekte  Satzstruktur,  das  zweite 
ein  Satz,  wie  er  möglicherweise  von  dieser  Satzstruktur  er¬ 
zeugt  worden  sein  könnte. 

Nun  liegt  es  an  Ihnen  den  Wortschatz  von  Lyric  3.0  so  zu 
übernehmen,  wie  ich  ihn  vorgegeben  habe,  oder  ihn  nach  Ih¬ 
ren  Wünschen  zu  ändern. 

So  ist  es  zum  Beispiel  möglich,  die  Stimmung,  die  ein  von  Ly¬ 
ric  3.0  erzeugtes  Gedicht  hervorrufen  kann,  gezielt  zu  beein¬ 
flussen.  Verwenden  Sie  zum  Beispiel  nur  Worte  wie  »Glas«, 
»kalt«,  »Beton«,  »metallisch«,  »einsam«,  so  kann  das  entstande¬ 
ne  Gedicht  wahrscheinlich  einwandfrei  als  Kritik  an  der  Isola¬ 
tion  von  Bewohnern  eines  Hochhauses  in  einer  Großstadt  in¬ 
terpretiert  werden.  Oder  Sie  verwenden  nur  Worte  wie  »Ne¬ 
bel«,  »See«,  »Drache«,  »Hobbit«,  »Gandalf«,  »Baumbart«.  In  die¬ 
sem  Fall  werden  die  erzeugten  Gedichte  sicherlich  einen  voll¬ 
kommen  anderen  Charakter  bekommen. 

Zwei  Fragen  müssen  nun  noch  geklärt  werden:  Was  hat  es 
mit  den  Satzstrukturen  auf  sich  und  wie  läßt  sich  das  Pro¬ 
gramm  erweitern?  Die  Satzstrukturen  sind  Strings,  die  dem  C 
64  genau  mitteilen,  wie  die  Form  eines  Verses  aussehen  soll. 
Ein  Beispiel: 

SUB1101  UND  SUB2102  VRB12  TMP  SUB2032 
Die  dreibuchstabigen  Wörter  sind  Mnemoniks,  die  ein  be¬ 
stimmtes  Wort  oder  eine  Gruppe  von  Wörtern  symbolisieren. 

»SUB«  erzeugt  ein  Substantiv.  Die  darauffolgenden  Zahlen 
geben  dem  C  64  nähere  Informationen  zu  dem  Wort. 

1.  Zahl:  0  —  Wort  ohne  Artikel 

1  —  mit  unbestimmten  Artikel 

2  —  mit  bestimmten  Artikel 

2.  Zahl:  0  —  Wort  ohne  Adjektiv 

1  —  mit  Adjektiv 

3.  Zahl:  0  —  Wort  im  Nominativ 

1  —  Genitiv 

2  —  Dativ 

3  —  Akkusativ 
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4.  Zahl:  1  —  Wort  im  Singular 
2  —  Wort  im  Plural 
UND  gibt  das  Wort  »und«  aus. 

ODR  gibt  »oder«  aus. 

TMP  erzeugt  eine  temporale  Bestimmung,  wie  »heute«  oder 
»nun«. 

IST  gibt  »ist«  aus. 

SND  gibt  »sind«  aus. 

KON  erzeugt  eine  Konjunktion,  wie  »weil«  oder  »eher  als«. 
KOM  gibt  ein  Komma  aus. 

PRA  erzeugt  eine  Präposition,  wie  »neben«  oder  »in«. 

DIE  gibt  »die«  aus,  um  Sätze  wie  »Wirbel,  die  zerfließen«  erzeu¬ 
gen  zu  können. 

VRB  erzeugt  ein  Verb.  Es  wird  durch  zwei  direkt  folgende  Zah¬ 
len  spezifiziert. 

1.  Zahl: 

0  —  transitives  Verb 
1  —  intransitives  Verb 

2.  Zahl: 

1  —  Singularform 

2  —  Pluralform 


242 

300-  700 
700-  770 

800-  818 

900-  906 
920-  928 

930-  966 


970-  978 
980-  989 
990-1000 
1000-1500 
2000-2200 

2200-6000 
ab  6000 


puter  erledigt  werden. 

Ende  der  Session 
Auswertung  der  Satzstrukturen 
Ausgabe  eines  Verses  auf  Bildschirm  und 
eventuell  Drucker 

Automodus  ?  Wenn  ja,  dann  Erzeugung  aller 
notwendigen  Daten 

Auswertung  eines  Tastendruckes  (ja/nein) 
Routine  zur  Eingabe  maximal  zweistelliger 
Zahlen 

Routine  zur  Berechnung  der  Endung  eines 
Substantives  aus  Kasus,  Genus  und  End¬ 
silbe 

Soundroutine 

Gong 

Musikroutine 

Satzstrukturen 

Endungen,  Präpositionen,  Konjunktionen 
etc. 

Nomen  und  Adjektive 
Verben 


IWO  gibt  so  undefinierbare  Worte  wie  »immer  wieder«  oder 
»niemals«  aus. 

KSS  erzeugt  ein  Subjekt  wie  »niemand«  oder  »alles«. 

Die  oben  genannte  Satzstruktur  könnte  zum  Beispiel  folgen¬ 
des  erzeugt  haben:  »Ein  bunter  Hund  und  die  silbernen  Ringe 
schlagen  nun  die  Wände.«  Lyric  3.0  ist  vom  Aufbau  her  teilwei¬ 
se  recht  kompliziert,  daher  hier  ein  paar  Erläuterungen  zu  den 
verschiedenen  Abschnitten  des  Programmes: 


11-28 

29-47 

49-64 

100 


Variablendefinition  und  Anlegen  der  Felder 
Anfangsbild 

Einlesen  der  Wörter  und  Endungen  in  Felder 
Beginn  der  Session  zwischen  C  64  und  Be¬ 
nutzer. 

Folgende  Daten  müssen  bestimmt  werden: 
Anzahl  der  Strophen 

Anzahl  der  Verse  der  einzelnen  Strophen 
Satzstrukturen  der  einzelnen  Verse 
Auf  Wunsch  kann  aber  auch  alles  vom  Com- 


Das  Programm  benutzt  viele  Variablen.  Die  wichtigsten: 

E$(X)  Feld,  das  die  einzelnen  Worte  eines  Verses 

enthält 

Z2  Zeiger  auf  das  nächste  freie  Element  von 

E$(X) 

ZI  Zeiger  auf  den  nächsten  noch  nicht  interpre¬ 

tierten  Buchstaben  der  aktuellen  Satzstruk¬ 
tur 

Anzahl  der  Strophen 

Anzahl  der  Verse  der  einzelnen  Strophen 
j,n:  Soll  gedruckt  werden? 

Anzahl  der  Satzstrukturen,  Nomen  etc. 
Dieses  Feld  enthält  die  Satzstrukturen  für 
das  ganze  Gedicht 

AD$  Endung,  die  zu  dem  Subjekt  addiert  werden 

muß. 

Ich  schlage  Ihnen  einfach  mal  vor,  daß  Sie  ein  wenig  mit  Ly¬ 
ric  3.0  herumexperimentieren.  (Dirk  Meier/hm) 


AZ 

VA%(X) 

AR$ 

MKSiAj 


1  REM  LYRIC  3.0 

<  194> 

GEN" 

<  1 1 2  > 

2  REM  - 

<165> 

34 

PRINT"  SCHLACHTEN  MIT  DER  DEUTSCHEN  GRA 

3  REM  IT ’S  AN  EXPERIENCE  ! 

<  103> 

MMATIK. " 

<093> 

4  REM 

<066> 

36 

PRINT"  GREETINGS  TO  5T ORM , .10RCHERT , £R I E 

5  REM  WRITTEN  BY 

<062> 

D , flSTEL  UND  ENZENSBERGER _ " 

<050> 

6  REM  DIRK  MEIER 

<058> 

38 

PRINT: PR I NT "  £UT  NEVER  FORGET: ": PRINT" 

10 

REM 

<072> 

JLEEP  IT  HEAVY  AND  KEEP  IT  HARD _ " 

<225> 

11 

REM  ANZAHL  VON: 

<  064  > 

40 

PRINT:  PRINT"  EBER  JETZT:  HI.LCSHI  FT-SPAC 

12 

Q0= 19: REM  MNEMON IC-KETTEN 

<073> 

E  J.M.I.S.I. CSH I FT-SPACE  J.O.P.T  I_MU  S.  ! " : PR I NT 

<0B5> 

13 

Ql =8: REM  PRAEPOSIT IONEN 

<157> 

44 

PRINT  CHR» ( 18) "  J£H  WARTE  AUF  EINE  fiEAK 

14 

Q2=6: REM  TEMPORALE  BESTIMMUNGEN 

<110> 

TION  VON  JJ-tNENI2SPACE>" 

<254> 

15 

Q3=25:REM  KONJUNKTIONEN 

<212> 

46 

GET  A»:  IF  A»=""THEN  46 

<  120> 

16 

Q4=138: REM  NOMEN, ADJEKTIVE 

<  124> 

47 

GOSUB  970: PRINT  CHR» ( 18) " <1 1 SPACE J£I TTE' 

17 

05=90: REM  VERBEN 

<  187> 

ETWAS  WARTEN  <11 SPACE > ” 

<  1 47> 

1B 

Q6=l 0: REM  IRGENDWELCHE  WORTE 

<067> 

49 

FOR  A=1  TO  35: READ  A»:NEXT 

<078> 

19 

Q7=8: REM  ENDSILBEN  FUER  NOMEN 

<020> 

50 

FOR  A=0  TO  Q0-1 : READ  CO» (A) , A»: NEXT: REA 

20 

Q8=6 : REM  IRGENDWELCHE  SUBJEKTE 

<  126> 

D  A»,A»,A» 

<060> 

21 

POKE  53281 , 14: POKE  53280 , 6: PRINT  CHR» ( 1 

52 

FOR  A=0  TO  15: READ  EN» (A) : NEXT: REM  ENDU 

47) CHR» (14) CHR» (8) 

<  146> 

NGEN 

<034> 

22 

DIM  VAX (20) , MN» (150) ,PM* <20, 1 ) ,D2» < 1 1 ) , 

53 

FOR  A=0  TO  11: READ  D2» (A> : NEXT: REM  ENDU 

D3» (15) ,D4»(15) , DX (Q4+Q5-2) 

<234 > 

NGEN2 

<  156> 

24 

DIM  EN» (15) ,AR»<15> ,PR»(Q1-1> ,ZE»(Q2-1) 

54 

FOR  A=0  TO  15: READ  D3» (A> : NEXT: REM  ENDU 

,KO» (Q3-1 ) ,N0»(Q4-1 ,3) 

<125> 

NGEN3 

<  209  > 

26 

DIM  VB* (Q5— 1,2) ,E»(20> ,C0» (00-1) ,IW»(Q6 

55 

FOR  A=0  TO  15: READ  D4» (A) : NEXT: REM  ENDU 

-1 ) ,KS»(QB-1) 

<  128> 

NGEN4 

<002> 

28 

S 1 =54272 : S2=S 1 +7 : S3=S2+7 : FOR  A=0  TD  24: 

56 

FOR  A=0  TO  15: READ  AR» (A) : NEXT: REM  BEST 

POKE  S1+A,0: NEXT 

<058> 

•ARTIKEL 

<  133> 

29 

FOR  A=1  TO  20: FOR  B=1  TO  0  STEP-1: PRINT 

58 

FOR  A=0  TO  Ql— 1 : READ  PR» <A) : NEXT: REM  PR 

" {HOME >“ ;: POKE  646, B: POKE  S1+24,0:POKE 

AEPOSITIONEN 

<  157> 

Sl+24, 15 

<  166> 

59 

FOR  B=0  TO  Q2— 1 : READ  ZE»(B):NEXT  B: REM 

30 

PR  I  NT :  F'R  I  NT  "  £IRK  flEIER'S  LYRIC  3.0":PR 

TEMP.  BESTIMMUNGEN 

<  156> 

INT"  ==“==================" :NEXT  B, A 

<223> 

60 

FOR  A=0  TO  Q3— 1 : READ  KO» (A) : NEXT: REM  KO 

31 

POKE  646, 1: PRINT: PRINT"  £IN  GED I CHT-SYN 

NJUNKT IONEN 

<  127> 

THESE  PROGRAMM." 

<135> 

61 

FOR  A=0  TO  Q6— 1 : READ  I W» (A> : NEXT: REM  IR 

32 

PR INT: PR INT"  ENTWICKELT  NACH  NAECHTELAN 

GENDWELCHE  WORTE 

<  1 77  > 

56  Q3S? 
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62  FOR  A=0  TO  QB— 1 : READ  KS*(A):NEXT  A: REM 

IRG.  SUBST.  <066> 

63  FOR  A=0  TO  Q4-1:F0R  B=0  TO  3: READ  NO*(A 

,  B)  : NEXT  B  ,  A: REM  NOMEN , ADJEKTIVE  <018> 

64  FOR  A=0  TO  Q5-l:FOR  B=0  TO  2: READ  VB*(A 

, B) : NEXT  B, A: REM  VERBEN  <212> 

100  GOBUB  970: PRINT  CHR*  (147)  11  AUSDRÜCKEN 

LASSEN  WOLLEN  £IE  AICH  DIE"  <056> 

102  PRINT"  AEDICHTE  DOCH  SICHERLICH _ ODER 

?":GOSUB  980  <118> 

105  GET  DR*: IF  DR*< >" J"AND  DR*<  >"N"THEN  10 

5  <23B> 

107  A*=DR*: GOSUB  900: GOTO  800  <2^2> 

108  PRINT: PRINT"  ADMMEN  WIR  ZU  DEM  AUFBAU 

DER  ATROPHEN. "  <040> 

109  PRINT"  MIE  VIELE  ATROPHEN  SOLLEN  ES  SE 

IN  : GOSUB  980  <063> 

110  GOSUB  920:AZ=KK:IF  AZ=1  THEN  122  <063> 

111  IF  AZ< 1  THEN  PRINT: GOTO  110  <182> 

112  PRINT: PRINT"  AQLLEN  ALLE  ATROPHEN  DIE 

GLEICHE"  < 126> 

113  PRINT"  ANZAHL  VON  FERSEN  HABEN  ?";:GOS 

UB  980  < 127> 

114  GET  F3*:IF  F3*="J"THEN  PRINT"  JA": GOTO 

122  <212> 

116  IF  F3$<>1,N11THEN  114  <024> 

118  PRINT"  NEIN": PRINT"  MI  EVI EL  MERSE  SOLL 

EN  ES  JEWEILS  SEIN  ?":FOR  D=0  TO  AZ-1  <135> 

120  PRINT  D+l".  ATROPHE  ";:  GOSUB  920:VA7.(D 

)=KK: NEXT: GOTO  136  <210> 

122  PRINT: PRINT” <SHIFT— SPACE> VIEVIELE  MERS 
E  SOLLEN  ES  SEIN  ?";: GOSUB  980: GOSUB  9 
20 : F 1 =KK  <228> 

124  FOR  A=0  TO  AZ-1  :  VA7.  (A>  =F1  :  NEXT  <063> 

134  A*=CH*: GOSUB  900: PRINT  <205> 

136  PRINT”  MIR  KOMMEN  ZUM  FORMALEN  AUFBAU 

DER": PR INT"  ATROPHEN  UND  MERSE.  11  <136> 

138  PRINT"  MOLLEN  £IE  EIGENE  AATZSTRUKTURE 

N"  <218> 

140  PRINT"  EINGEBEN  (1)  ODER  BEREITS  GESPE 

ICHERTE": PRINT"  VERWENDEN  (2)";  <120> 

141  GOSUB  980  <021  SB 

142  GET  F1*:IF  Fl*< >" 1 " AND  Fl*< >"2"THEN  14 


2 

<236> 

311 

144 

IF  Fl* 

= "2" THEN  PRINT"  GESPEICHERTE" : GO 

312 

TO  200 

<029> 

146 

PRINT1 

SELBST  EINGEBEN11 

<027> 

313 

180 

PRINT 

CHR*  ( 1 47 ):  PR  INT 11  1.  ATROPHE"  :  FOR 

314 

A=1  TO  VA7.(0)  :  PRINT  A".  VERS"; 

<002> 

181 

INPUT 

MN* (A— 1 ) : NEXT : IF  F3*="N"THEN  PRI 

315 

NT: GOTO  190 

<077> 

316 

182 

IF  AZ= 

1  THEN  196 

<  131  > 

318 

183 

PRINT: 

PRINT"  AOLLEN  ALLE  RESTLICHEN  AT 

319 

ROPHEN 

DEN" 

<043> 

320 

184 

PRINT1 

GLEICHEN  AUFBAU  BESITZEN  ";:GOS 

322 

UB  980 

<225> 

185 

GET  Fl*: IF  Fl*=" J "THEN  PRINT"  JA":GOTO 

324 

196 

<  006  > 

326 

186 

IF  Fl*< >“N"THEN  185 

<095 

328 

190 

PRINT" 

NEIN" : FOR  A=1  TO  AZ-1:PRINT  A+l 

329 

" .  ATROPHE":  FOR  B=1  TO  VA7.(A) :  PRINT  B" 

.  MERS 

5 

<127 

330 

192 

INPUT 11 

11 ;  MN*  (A*VAX  (A)  +B— 1 )  :  NEXT  B:PRIN 

331 

T : NEXT 

A: GOTO  300 

<146 

332 

196 

FOR  A= 

1  TO  AZ:  FOR  B=0  TO  VA7.  ( 0 )  - 1  :  MN*  ( 

334 

A*VA7.  (A) +B)=MN*  (B)  :NEXT  B,A:GOTO  300 

<201 : 

340 

200 

PRINT: 

PRINT"  IHR  £64  WIRD  IHNEN  NUN  AL 

LE  IN 

DEN" 

<21 1 1 

350 

202 

PRINT" 

ÄHTA— TEILEN  GESPEICHERTEN  AATZ- 

351 

11 

<092> 

352 

204 

PRINT" 

STRUKTUREN  AUFLISTEN  UND  FRAGEN 

» 

<093> 

354 

206 

PRINT" 

OB  AIE  SIE  BEI  IHREM'  fiEDICHT 

" 

<201  > 

356 

208 

PRINT" 

VIELLEICHT  BRAUCHEN  KOENNEN.  11 :  P 

RINT" 

AI  NE  ERSTE  AUSWAHL  ALSO. 11 

<033> 

360 

210 

PR INT¬ 

HAMIT  AIE  SEHEN, WAS  SIE  DA  SO  A 

362 

US-  11 

<006> 

212 

PRINT" 

WAEHLEN,WIRD  IHNEN  ZU  JEDER  ATR 

364 

UKTUR" 

<251  > 

366 

214 

PRINT" 

EIN  AATZ  GELIEFERT, WIE  ER  VOM  £ 

370 

219  FOR  A=1  TO  35: READ  A*:NEXT 

220  PRINT: READ  A*,B*: IF  A*=" @@@"THEN  230 

221  PRINT  A*: PRINT  B*: PRINT  CHR* < 18) " J/N" 

222  GET  C*:  IF  C*="N"THEN  220 
224  IF  C*<>"J"THEN  222 

226  PM* (ZZ,0)=A*:PM* (ZZ, 1 ) =B*: ZZ=ZZ+1 :  GOTO 
220 

230  PRINT: PRINT"  MAEHLEN  AIE  NUN  FUER  JEDE 
N  ÜERS  DIE" 

232  PRINT"  GEWUENSCHTE  AATZ STRUKTUR  AUS.": 
GOSUB  980 

234  GET  A*:IF  A*=11,1THEN  234 
236  PRINT  CHR* (147) : PRINT: FOR  A=0  TO  ZZ-ls 
PRINT  CHR*(A+65> ".  11  ;  PM*  (  A  ,  1  >  :  NEXT 

238  FOR  A=0  TO  AZ-1:  FOR  B=0  TO  VA'/.  (A>-1:PR 
INT  CHR* (19) " <23SPACE > " 

239  PRINT  CHR* (19) A+l".  ATROPHE, "B+l " .  MER 
S<3SPACE>" 

240  GET  A*:IF  A*=""THEN  240 

241  IF  ASC(A*><65  OR  ASC ( A*> >ZZ+64  THEN  24 

0 

242  MN«  <A*VA7.  (A)+B)=PM*  (ASC (A*> -65,0)  :  NEXT 
B,  A 

300  REM  +++++  MNEMONICS  AUSWERTEN  ++++ 

301  POKE  53281, 5: POKE  53280,0: POKE  646, 1:P 
RINT  CHR* ( 147) ; 

302  FOR  A=1  TO  10: PRINT: NEXT: PRINT  TAB (10) 

303  FOR  A=1  TO  19: PRINT  MID* ("L' ART  POUR  L 

'ART _ " ,A, 1 ) ; :FOR  B=1  TO  10 

304  POKE  S 1 +24 , 0 : POKE  Sl+24, 15: NEXT  B,A:FO 
R  A=1  TO  1000: NEXT : IF  DR*= " J" THEN  OPEN 

1,4,0 

305  PRINT  CHR* ( 1 47 ) : FOR  A=0  TO  AZ-1: FOR  B= 
0  TO  VA7.  (A)-1:W*=MN*(A*VA7.(A)+B>  :Z1  =  1: 
Z2=0 

306  M*=MID*(W*,Z1 ,3) : IF  M*=" "THEN  712 

307  REM - UND - 

308  IF  M*=" UND "THEN  E* ( Z2) =M*: Z 1=Z 1+4: GOTO 
710 

309  REM - ODER - 

310  i  M*=  " ODR " THEN  E* ( Z2) ="ODER" : Z1=Z 1+4: 
GOTO  710 

REM  -  PRAEPOS I T I ON  - 

IF  M*= " PRA " THEN  E* (Z2) =PR* (RND < 1 > *Q1 ) : 
Zl=Zl+4: GOTO  710 

REM  -  KONJUNKTION  - 

IF  M*=" KON "THEN  E* (Z2> =KO* (RND ( 1 > *Q3> : 
Z 1 =Z 1 +4 : GOTO  710 

REM  -  TEMP.  BESTIMMUNG  - 

IF  M*<>" TMP "THEN  320 


, Z 1+4,1) ) :EF=VAL(MID*(W*,Z1+5,1)  ) 


RORAMM".  < 120> 

216  PRINT"  UNTER  SENUTZUNG  EBEN  JENER  ATRU 

KTUR"  < 149> 

21 B  PRINT"  PRODUZIERT  WERDEN  KOENNTE. " : ZZ= 

0 : RESTORE : GOSUB  980  < 1 25  > 


IF  EP=2  AND  EA= 1  THEN  EA=2 


IF  GE=- 1 
370 


THEN  EA=0:  GE=0:  ED=0:  F7.=  l :  GOTO 


IF  EP=1  THEN  E*(Z2)=AR*(EF*3+GE) 
IF  EP=2  THEN  E* ( Z2) =AR* (EF+12) 


THEN  E*(Z2)="EIN1'+EN*(EF*3+GE) 


: Z2=Z2+1 


IF  EP=2  THEN  362 


* ( Z2>  =E* ( Z2) +D3* (EF*3+GE) 

IF  EA=1  THEN  E* ( Z2) =E* ( Z2) +D2* (EF*3+GE 

) 

IF  EA=2  THEN  E* (Z2> =E* (Z2> +D4* <EF*3+GE 
) 

Z2=Z2+1 : GOTO  370 


*  CZ2) =E* (Z2) +D3* (EF+12) 

IF  EA=2  THEN  E* (Z2) =E* ( Z2) +D4* (EF+12) 


1) :L1*=MID*(E*(Z2) ,LEN(E*(Z2) >-1,1) 


<248> 

<  107> 
<233> 
<248> 

<  131  > 

<225> 

<204> 

<  16B> 

<077> 

<004> 

<226> 

<  173> 

<  146> 

<088> 

<213> 

<239> 

<014> 

<225  > 
<230 > 

<085> 


<  1 90  > 

<  137> 

<  178> 

<072> 

<  137> 

<231  > 

<090> 

<  125> 

<  140> 

<250> 

<033> 

<207> 

<  144> 

<037> 

<  1 38  > 

<247> 

<001  > 

<  1 17> 
<235> 

<  156> 
<061  > 

<  165> 

<  158> 

<  094  > 

<  157> 

<  146> 
<21B> 

<154> 

<040> 

<  107> 

<  152> 

<093> 

<079> 

<247> 

<  106> 
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371  LZ4=MID*(E*(Z2) ,LEN(E$(Z2) )-2,l) 

372  VO=0: IF  L0$="A"OR  L0$="E"OR  L0*=“I"OR 
L0*="O"OR  L0f="U"THEN  VO=100 

374  IF  L1$="A"0R  L1$="E"0R  Ll*=" I"OR  Ll$=" 
0MQR  L1$="U"THEN  VO=VO+10 

375  IF  LZ*="A"OR  LZ*="E”OR  LZ*="I"OR  LZ*=" 
0"DR  LZ$="U"THEN  V0=V0+1 

376  L2*=L0$+L1$:L3*=RIGHT$(E$(Z2) ,3) 

378  GGSUB  930: E* ( Z2) =E* ( Z2) +AD$ : Z1=Z 1 +8: GO 
TO  710 

410  REM - VERBUM - 

412  IF  M*<>"VRB"THEN  430 

414  ET=VAL(MID*(W*,Z1+3,1) ) : EP=VAL (MID* (W$ 
,Z 1+4,1) ) 

416  WA=RND(1)*Q5: IF (VAL (VB$ (WA, 2) ) <  >ET ) AND 
(VAL (VB* (WA, 2) ) )<>2  THEN  416 

418  E*(Z2)=VB*(WA,EP-1) : Z 1=Z1 +6: GOTO  710 

430  REM  -  IRGENDWELCHE  WORTE  - 

432  IF  M#<  > " I WO " THEN  440 

434  E$ (Z2) =1 W$ (RND  < 1 ) *Q6) : Z1=Z 1+4:  GOTO  710 

440  REM - DIE - 

442  IF  M$=" DIE "THEN  E$ < Z2) = " DI E " : Z 1=Z 1 +4 : G 
OTQ  710 

444  REM - , - 

446  IF  M$="KOM"THEN  E$ ( Z2> =  " , " : Z 1=Z 1 +4: GOT 
O  710 

448  REM  -  IST/SIND  - 

450  IF  M$= " I ST " THEN  E$ (Z2) =M$: Zl=Zl+4: GOTO 
710 

452  IF  M$="5ND"THEN  E$ (Z2) ="SIND" : Zl=Zl+4: 
GOTO  710 


454  REM  -  IRGENDEIN  SUBJEKT  - 

456  IF  M*="KSS"THEN  E* ( Z2) =KS* (RND ( 1 ) *08) : 

Zl=Zl+4: GOTO  710 
699  REM - AUSGABE - 


700  PR I NT " .EJLR-O.R-  .  .  .U.N.K.K.QXK  .M-H.ejl.OXI  c.:  "  :  PRINT 
"  ";M$:END 

710  Z2=Z2+1 : GOTO  306 

712  FOR  X=0  TO  Z2— 1 : P$=P$+E$ ( X ) : I F  E$(X)<> 
"  ,  "THEN  P$=P$+"  ■' 

714  NEXT  X 

722  PRINT  LEFT$(P$,LEN(P$>— 1)  ;  "  .  " 

724  IF  DR$= " J " THEN  PRINT#1 , LEFT$ (P$, LEN <P$ 
)  — 1 )  ;  " .  " 

730  P$=" " : NEXT  B:PRINT:IF  DR$="J"THEN  PRIN 
T#1 

740  FOR  X=0  TO  Z2: E$ (X ) =" “ : NEXT 
750  IF  DR$= " J"THEN  PRINT#1 

760  GOSUB  980: NEXT  A:CLOSE  1 : GOSUB  992: POK 
E  198,0: WA IT  198,1:P0KE  198,0 
762  PRINT: PRINT: PRINT"  MOCH’N  SEDICHT  7" 
764  GET  A$: IF  A$=""THEN  764 
766  IF  A*="N"THEN  RUN 
768  IF  A$="J"THEN  300 
770  GOTO  764 
800  REM - AUTO - 

802  PRINT: PRINT"  SIE  KOENNEN  ZWISCHEN  EINE 
M  HALB-  111" 

804  PRINT"  UND  EINEM  VOLLAUTOMATISCHEN  [23 
ÖDDUS" 

806  PRINT"  WAEHLEN.iM  ERSTEREN  MUESSEN  5.1  E 

808  PRINT"  ANGABEN  ZUR  £ORM  DES  SEDICHTES 
MACHEN <3SPACE > I M  ZWEI TEN  N I CHT . " ; : GOSU 
B  980 

810  GET  A*:IF  A*="1"THEN  PRINT"  HALB  ".-GOTO 
108 

812  IF  A$<>"2"THEN  810 

813  PRINT"  VOLL" 

814  AZ=INT (RND (TI)#10) +3: R=INT (RND ( 1 ) *8) +3 
:  FOR  A=0  TO  AZ-1 :  VA7.  (A)  =R:  NEXT 

816  FOR  A=0  TO  R-l : B=INT (RND ( 1 ) *Q0) : FOR  C= 
0  TO  AZ-1 : MN* (C*R+A) =C0* (B) : NEXT  C,A 
818  GOTO  300 
900  REM  ++  JA/NEIN  ++ 

902  IF  A$="J"THEN  PRINT"  JA" 

904  IF  A*="N"THEN  PRINT"  NEIN" 

906  RETURN 

920  REM  ++  ZAHLEN-E INGABE  ++ 

922  KK=0: FOR  A=1  TO  0  STEP-1 

924  GET  A*: IF  A$=CHR* ( 13) THEN  KK=KK/10:GOT 
O  928 

925  IF  ASC  (A$+CHR$  (0)  X48  OR  ASC  (A*+CHR$  (0 
) ) >57  THEN  924 

926  PRINT  A$;;KK=VAL(A*)*10TA+KK 
928  NEXT: PRINT: RETURN 


<047> 

<067> 

<  165> 

<  192> 

<  1 98  > 

<  0 1 2  > 
<083> 
<099> 

<  156> 

<000> 

<251  > 

<  2 1 4  > 
<233> 
<074> 
<200> 

<246> 

<  1 92  > 


930  REM  +++  ENDUNG  SUBSTANTIV  +++ 

932  AD$="":IF  EP=2  THEN  960 
934  ON  GE+1  GOTO  936,952,936 

936  ON  EF+1  GOTO  952,938,946,953 

937  REM  +++  SING. MAS. GEN  +++ 

938  AD$=“ES": IF  L0*="E"AND ( VO  AND  110) =100 

AND  GE=0  THEN  AD*="NS" : GOTO  945 

939  IF  L3*="NET"0R  L2$= " RR " THEN  AD$="EN":G 
OTO  945 

940  IF(L0$="R"OR  L0$="N"OR  L0$="L" ) AND ( (VO 

AND  10) =10) THEN  AD$="S":GOTO  945 

941  IF  F7.=  l  THEN  AD$="S":GOTO  945 

942  IF  L0*="S"AND  V011O11  THEN  AD*="SES" 

943  IF  V0<=1  THEN  AD*="ES" 

944  IF  AD*="ES"AND  L0*="E"THEN  AD*=“S" 

945  RETURN 

946  REM  +++  SING.MAS.DAT  +++ 

947  AD$="E":IF  L0$="E"THEN  AD$="" 

948  IF  L3$="NET"0R  L2$="RR"THEN  AD*="EN":G 
OTO  949 

949  IF ( (L0#="R"OR  L0*="N"OR  L0$="L" ) AND ( VO 

AND  10=10) )0R  V0<=1  THEN  AD*="" 

950  IF (VO  AND  110) =100  AND  GE=0  THEN  AD$=" 
N" 


<093> 
<  200  > 

<245> 

<130> 

<  156> 

<  1 20  > 

<  1 1 1  > 

<085> 

<072> 


951  IF  F7.=  1  THEN  AD$="" 

952  RETURN: REM  +++  SING. MAS. AKK  +++ 

953  TF  I  3*="NFT"nR  I  ?*="RR"THFN  AD$="FN" 

954  IF ( VO  AND  110)=100  AND  GE=0  THEN  AD$=" 
N" 

955  IF  F7.=  l  THEN  AD$="" 

956  RETURN 

960  REM  +++  PLURAL  +++ 

962  IF  EF<  >2  THEN  966 
964  IF  L0$<  >"N" THEN  AD$="N" 

966  RETURN 

970  REM  -  TITLE-SOUND  - 

972  POKE  S 1 +24 ,15: POKE  S1+5,15:P0KE  S2+5,l 
5 : POKE  S3+5 ,15: POKE  S 1+6, 247 
974  POKE  52+6,247: POKE  S3+6 , 247: POKE  Sl+4, 


<059> 

< 154>  976 

<209>on|_ma»»' 


17: POKE  S2+4 ,17: POKE  S3+4,17 
FOR  V=0  TO  179  STEP  5  : POKE  S1+1,V:P0K 
£  S2+ 1 , V*5/ 4 : POKE  S3+l,V*10/7 


<228> 

<  1 47  > 

<  165> 

<  171  > 

<094  > 
<23B> 

<  1 96  > 

<02B> 

<  06B  > 

<20B> 

<  1 29  > 

<239> 

<020> 

<  134> 


<231  > 

<002> 

<  1 4 1  > 

<0B3> 

<053> 

<094> 

<000> 

<  1 37  > 
<069> 
<028> 
<202> 

<  182> 
<239> 

<21 1  > 

<238> 
<  106> 

<  004  > 


978  NEXT : POKE  S1+4,32:P0KE  S2+4,32:P0KE  S3 
+4, 32: RETURN 

980  REM - GONG - 

982  POKE  Sl+24, 15+16: POKE  S1+23,7:P0KE  S1+ 
1,10: POKE  Sl+3, 100: POKE  Sl+5,15 

984  POKE  S1 +6, 250: POKE  S2+ 1,6: POKE  S2+3,10 
0 : POKE  S2+5 ,15: POKE  S2+6,250 

986  POKE  S3+ 1,20: POKE  S3+3 , 1 00: POKE  S3+5,l 
5: POKE  S3+6 , 250 : POKE  Sl+4, 17 

988  POKE  S2+4 , 21 : POKE  S3+4,17:F0R  S=1  TO  1 
00: NEXT: POKE  Sl+4, 16: POKE  S2+4,20 

989  POKE  S3+4, 16: RETURN 

990  REM - MUS  IC - 

992  POKE  S1 , 0: POKE  S2,0:POKE  S3,0:POKE  S1+ 
1,0: POKE  S2+1 ,0: POKE  53+1,0 

993  POKE  Sl+24, 15+16: POKE  S1+23,0:POKE  S1+ 
5, 15: POKE  Sl+6, 250: POKE  S2+5,15 

994  POKE  S2+6, 250: POKE  S3+5,15:P0KE  S3+6,2 
50: POKE  Sl+4, 33 : POKE  32+4,33 

995  POKE  S3+4 , 33: RESTORE : FOR  A=1  TO  5: READ 

H , X 1 , X2 , Y 1 , Y2 , Z 1 , Z2: POKE  Sl+1 ,X1 

996  POKE  S1 , X2: POKE  S2+1,Y1:P0KE  S2,Y2:P0K 
E  S3+1 , ZI : POKE  S3,Z2:F0R  B=1  TO  H: NEXT 

B ,  A 

997  POKE  Sl+4, 32: POKE  S2+4,32:P0KE  S3+4,32 
: RETURN 

998  DATA  1000,6,133,8,180,10,247,500,9,196 
,10,247,13,10 

999  DATA  1000,17,103,14,162,10,247,1500,19 
, 137,26,20,32,219 

1000  DATA  2000,21,237,26,20,34,207 

1001  REM  +++++  SATZ-STRUKTUREN  +++++ 

1002  DATA  "SUB2001  VRB11" , "DER  STEIN  ERSTA 
RRT" 

1003  DATA  "SUB2001  UND  SUB2001  VRB12","DER 

STEIN  UND  DAS  GEWEBE  ERSTARREN" 

1004  DATA  "PRA  SUB1021  VRB12  SUB2102" , "HIN 
TER  DEM  SAR  FLIESSEN  DIE  STEINE" 

1005  DATA  "SUB0102  VRB02  SUB1031 ", "STEINE 
SCHLAGEN  EINEN  SANN" 

1006  DATA  "SUB2011  SUB0001  VRB1 1  IWO","DES 

SANNES  SUT  LIEGT  IRGENDWO" 

1007  DATA  "KON  SUB1101  VREU1  KOM  VRB12  SUB 

2002" 


<224> 
<  1 18> 
<015> 

<  1 75  > 
<023> 

<  1 07  > 

<  164> 

<023> 

<  109> 

<  121  > 
<041  > 

<07B> 
<241  > 

<  167> 

<  228  > 

<  189> 

<  1 28  > 

<227> 
<056> 
<  121  > 

<  235  > 

<231  > 
<060> 
<252> 
<239> 

<  033  > 

<  1 08  > 
<  006 > 
<029> 

<  0 1 5  > 

<091  > 

< 207 > 

< 252 > 
< 025  > 

<  2 1 4  > 

<  189> 

<  2 1 2  > 

<  248 > 

<127> 

<  133> 

<  1 94  > 
<232> 
<201  > 

<  1 39> 


<247> 
<  1 16> 
<1U> 

<110> 

<  090> 

<207> 

<  1 32  > 
<122> 

<  1 30  > 
<078> 
<223> 

<  122> 
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qni  icnhi  inc  noz  tnnNurc 
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1 000 

DATA  "DA  DER  ÜUT  RINGT, ESSEN  DIE  £IER 

KAUM 

ETWAS " , NI EMAND , ALLE 

<  120> 

" 

<217> 

2200 

REM  +++++  NOMEN, ADJEKTIVE  ++++++ 

<250> 

1009 

DATA  " IWO  VRB01  SUB2001  SUB2132" , "ÜAT 

2201 

DATA 

MEER , MEERE , WAESSR I GE  ,  3 

<  1 15> 

UERLICH  TOETET  £DNAN  DIE  ÜUETE" 

<  172> 

2202 

DATA 

WALD , WAELDER , GRUENE , 1 

<181> 

1010 

DATA  "SUB2102  VRB12  KOM  KON  SUB1001  S 

2203 

DATA 

HAUS , HAEUSER , BLAUE  ,  3 

<225> 

UB2131  VRB21" 

<  1B9> 

2204 

DATA 

MAEDCHEN , MAEDCHEN , HELLE , 3 

<040> 

1011 

DATA  "SER  ÜUT  EIERT, WEIL  DIE  £RAU  DAS 

2205 

DATA 

JUNGE .JUNGEN , JUNGE , 1 

<  1 18> 

.HASSER  <2SPACE  >TR INKT  " 

<051  > 

2206 

DATA 

FRAU , FRAUEN , DUNKLE , 2 

<110> 

1012 

DATA  "SUB0002  UND  SUB0002  KOM  SUB2001 

2207 

DATA 

TURM, TUERME, DURSTIGE, 1 

<  177> 

VRB11" 

<208> 

2208 

DATA 

MANN , MAENNER , TROCKENE , 1 

<  168> 

1013 

DATA  "ÜEXEN  UND  JEUFEL , DER  HEG  VERWHT 

2209 

DATA 

PLANET , PLANETEN , RUNDE , 1 

<  139> 

“ 

<232> 

2210 

DATA 

WUESTE , WUESTEN , KALTE , 2 

<082> 

1014 

DATA  "SUB0002  KOM  DIE  VRB12" , "fLANETE 

2211 

DATA 

KAELTE , W I NDE , WARME , 2 

<028> 

N,DIE  VERGEHEN" 

<007> 

2212 

DATA 

GRAB , GRAEBER , E I SKALTE , 3 

<227> 

1015 

DATA  "KON  IWO  SUB2001  VRB1 1  KOM  VRB12 

2213 

DATA 

GLOCKE , GLOCKEN , GOLDENE , 2 

<  1 13> 

SUB2002  UND  SUB2002" 

<037> 

2214 

DATA 

FELD , FELDER , ALTE , 3 

<  003> 

1016 

DATA  "HEIL  KEIN  HDLF  SCHWEBT , SCHLAFEN 

2215 

DATA 

SEE , LEUTE , FEUCHTE , 1 

<  1 77  > 

C2SRACEJDIE  ÜUETE  UND  DIE  £IER" 

<  184> 

2216 

DATA 

HERR , HERREN , PRAECHT I GE , 1 

<  180> 

1017 

DATA  "SUB2001  KOM  SUB1101  KOM  VRB01  S 

2217 

DATA 

WEG , WEGE , GEF AEHRL I CHE , 1 

<  199> 

UB0032" 

<21 1  > 

2218 

DATA 

TIER, TIERE, GRAUE, 3 

<  068  > 

1018 

DATA  "DER  ÜUND,EIN  BLAUES  HER,  TOETET 

2219 

DATA 

WELT , WELTEN , SCHWARZE , 2 

<083> 

ÜFERDE" 

<236> 

2220 

DATA 

LAND , LAENDER , LEUCHTENDE , 3 

<253> 

1019 

DATA  "TMP  VRB11  SUB2101 " , "BALD  ERTRIN 

2221 

DATA 

KRAEHE , KRAEHEN , TOTE , 2 

<053> 

KT  CONAN" 

<067> 

2222 

DATA 

SCHLACHT , SCHLACHTEN , PRASSELNDE , 2 

<060> 

1020 

DATA  "TMP  IST  SUB2001  SUB1 101 " , "NUN  I 

2223 

DATA 

LUFT , LUEFTE , S I LBERNE , 2 

<240> 

ST  DER  ÜUT  EIN  BLAUER  £I_ECK" 

<  10B> 

2224 

DATA 

MACHT , MAECHTE , MAECHT I GE , 2 

<214> 

1021 

DATA  "SUB0002  VRB12  PRA  SUB2021 " , "ÜER 

2225 

DATA 

RING, RINGE, URALTE, 1 

<  1 43> 

ZEN  RIESELN  IN  DEM  A.ICHT" 

<  196> 

2226 

DATA 

STE I NTUER , PFADE , WE I SE , 2 

<045> 

1022 

DATA  "SUB2001  VRB11  KOM  KON  SUB2001  V 

2227 

DATA 

ZAUBERER , ZAUBERER , E I NSAME , 1 

<235> 

RB1 1  " 

<073 > 

2228 

DATA 

WOLF , WOELFE , HEULENDE , 1 

<165> 

1023 

DATA  "DIE  fREUDE  FUNKELT, WENN  DER  JEC 

2229 

DATA 

FEUER , FEUER , BRENNENDE , 3 

<  167> 

HER  <6SPACE>DUFTET" 

<  1 12> 

2230 

DATA 

WOLKE , WOLKEN , WE I SSE , 2 

<  1 58  > 

1050 

DATA  "SUB2002  SND  SUB0102  KOM  KON  SUB 

2231 

DATA 

W I RBEL , W I RBEL , RE I SSENDE , 1 

<027> 

2001  VRB11" 

<  178> 

2232 

DATA 

WELLE , WELLEN , NASSE , 2 

<164  > 

1051 

DATA  "DIE  JAEREN  SIND  GRUENE  ÜEPFEL.W 

2233 

DATA 

STERN , STERNE , STRAHLENDE , 1 

<  1 49> 

EIL  DER {3SPACE >ÜUT  EIERT" 

<  065 > 

2234 

DATA 

PFERD , PFERDE , STOLZE , 3 

<202> 

1052 

DATA  "SUB0002  KOM  SUB0002  KOM  SUB0002 

2235 

DATA 

TOR , TORE , GEWALT I GE , 3 

<224> 

KOM  KSS  VRB11" 

<  191  > 

2236 

DATA 

FESTUNG , FESTUNGEN , STARKE , 2 

<  137> 

1053 

DATA  "ÜEPFEL,  BIRNEN,  HI  RBEL, ALLES  VERG 

2237 

DATA 

HOFFNUNG , HOFFNUNGEN , MUEHSAME , 2 

<074> 

EHT“ 

<  030 > 

223B 

DATA 

PFL I CHT , FFLI CHTEN , ERNSTE , 2 

<1  12> 

1054 

DATA  "KON  SUB2002  VRB12  KOM  IST  SUB20 

554, 

DATA 

AUGE , AUGEN , MAG I SCHE , 3 

<041  > 

01  SUB1101" 

JATA 

ZWEIFEL, ZWEIFEL, URALTE, 1 

<  085 > 

1055 

DATA  "WEIL  DER  ÜUT  SINGT, IST  DER  ÜANN 

2241 

DATA 

STERBEN , SCH I CKSALE , UNENDL I CHE , 3 

<  185> 

E I NE  T6SPACE JJEST I E " 

<000> 

2242 

DATA 

GANG , GAENGE , UN I RD I SCHE , 1 

<  157> 

1500 

DATA 

<237> 

2243 

DATA 

VERZWEIFELUNG , STIMMEN , GRAUSAME , 2 

<  1B5> 

2000 

REM  +++++  DEKLINATIONEN  +++++++ 

<151  > 

2244 

DATA 

W I RKL I CHKE I T , VOELKER , UNW I RKL I CHE 

2002 

DATA  @1 , , E , , ES , ER , ES , EM , ER , EM , EN , E , 

<086> 

,2 

<030> 

2004 

DATA  E,ER,EN,E 

<233> 

2245 

DATA 

DENKEN , GEDANKEN , DENKBARE , 3 

<120> 

2010 

REM  +++++  DEKLINATIONEN  ++-*-++++ 

<  161  > 

2246 

DATA 

ORK, ORKS, GIFTIGE, 1 

<236> 

2012 

DATA  R, ,S,N,N,N,N,N,N,N, ,S:REM  EIN 

<006> 

2247 

DATA 

SCHLANGE , VOEGEL , GEF I EDERTE , 2 

<248> 

2014 

REM  +++++  DEKLINATIONEN  +++++++ 

<  165> 

2248 

DATA 

ENDE , L I CHTER , DUESTERE , 3 

<249> 

2016 

DATA  R,,S,N,R,N,M,R,M,N,,S, ,R,N, : REM 

2249 

DATA 

BL  I  CK ,  BL  I CKE ,  UN  WUERD I  GE ,  1 

<223> 

NIL 

<059> 

2250 

DATA 

FENSTER , FENSTER , FENSTERLOSE , 3 

<022> 

2017 

REM  +++++  DEKLINATIONEN  +++++++ 

<  168> 

2251 

DATA 

TOD , HOERNER , LAUERNDE , 1 

<047> 

2018 

DATA  , , ,N,N,N,N,N,N,N, , , N , N , N , N: REM  D 

2252 

DATA 

RAUCH , WAENDE , DUNST I GE , 1 

<  058  > 

ER 

<042> 

2253 

DATA 

KR I EG , KR I EGE , VERFLUCHTE , 1 

<  083  > 

2020 

REM  +++++  BEST.  ARTIKEL  +++++++ 

<123> 

2254 

DATA 

KL I RREN , HORDEN , METALLENE , 3 

<233> 

2022 

DATA  DER , D I E , DAS , DES , DER , DES , DEM , DER , 

2255 

DATA 

WAGN I S , GABEN , F I NSTERE , 3 

<  129> 

DEM, DEN, DIE, DAS 

<  150> 

2256 

DATA 

LEBEN , GEGNER , TOETL I CHE , 3 

<  150> 

2024 

DATA  DIE, DER, DEN, DIE 

<  103> 

2257 

DATA 

STEIN, STEINE, FLUESTERNDE, 1 

<  245> 

2030 

REM  +++++  ENDSILBEN  +++++++ 

<003> 

2258 

DATA 

KETTE , KETTEN , SCHWERE , 2 

<21 7> 

2040 

REM  +++++  PRAEPOSIT  IONEN  +++•+++ 

<051  > 

2259 

DATA 

FLUSS, FLUESSE, SPITZE, 1 

<  090> 

2042 

DATA  IN, AUF , NEBEN , UNTER , UEBER , GEGENUE 

2260 

DATA 

W I LLE , SCHWERTER , GLAENZENDE , 1 

<021  > 

BER,AN, AUS 

<0<bl  > 

2261 

DATA 

ROSS , ROESSER , SCH I CKSALSHAFTE , 3 

<237> 

2060 

REM  +++++  TMP.  DCSTIMMUNGCN  +  ♦♦ 

<198> 

2262 

DATA 

GASTHAUS , RE I TER , UNBEKANNTE , 3 

<137> 

2064 

DATA  JETZT , NUN , HEUTE , SOEBEN , BALD , GLE I 

2263 

DATA 

TAPFERKE I T , FAEH IGKE I TEN , EDLE , 2 

<087> 

CH 

<  181  > 

2264 

DATA 

CROM , GOETTER , VERLORENE , 0 

<  088  > 

2080 

REM  ++++-*-  KONJUNKTIONEN  +++++++ 

<  139> 

2265 

DATA 

FALKE , FALKEN , STUERZENDE , 1 

<  199> 

2082 

DATA  WENN, DA, WEIL, DA  JA, WEIL  NUN  EI NM 

2266 

DATA 

CONAN , TEUFEL , HETZENDE , 0 

<  095  > 

AL , OBGLE I CH , OBWOHL 

<066> 

2267 

DATA 

SCHWERT , KATZEN , SCHLE I CHENDE , 3 

<026> 

2084 

DATA  AUCH  WENN, WENN  AUCH, WAEHREND, SOL 

2268 

DATA 

FREUDE , FREUDEN , ST I NKENDE , 2 

<062> 

ANGE, SOLANGE  BIS 

<020> 

2269 

DATA 

GL ITZERN , BEST I EN , BLUT I GE , 3 

<202> 

2086 

DATA  NACHDEM, SEITDEM, EHER  ALS, ALS, BE V 

2270 

DATA 

DRACHE , DRACHEN , G I GANT I SCHE , 1 

<  152> 

OR, JEDESMAL  WENN 

<062> 

2271 

DATA 

BL ITZ , BL I TZE , GRELLE , 1 

<209> 

2088 

DATA  WIE  SEHR  AUCH, WENN  ABER, WENN  NUR 

2272 

DATA 

SCHRECKEN , SCHRECKEN , BLUTRUENST I G 

, WENN  NUR  NICHT 

<  005> 

E,  1 

<  062> 

2090 

DATA  DAM IT, DAM IT  NICHT, SOBALD 

<  194> 

2273 

DATA 

MOOR , SUEMPFE , TROPFENDE , 3 

<  1 29  > 

2100 

REM  +++++  EINFACH  WORTE  ++++++++ 

<054> 

2274 

DATA 

MOND , MONDE , SUECHT I GE , 1 

<  1 4 1  > 

2102 

DATA  "IMMER  WI EDER" , ANDAUERND ," OHNE  U 

2275 

DATA 

EBER , MAUERN , W I LDE , 1 

<  151  > 

NTERLASS“ , "NUR  NOCH" 

<060> 

2276 

DATA 

RABE , RABEN , PECHSCHWARZE , 1 

<  1B7> 

2104 

DATA  NI EMALS , SELTSAMERWE I SE , MANCHMAL , 

2277 

DATA 

E I NSAMKE I T  ,  Z  WE  I  GE ,  DUMPFE  ,  2 

<035> 

"WIEDER  UND  WIEDER" 

<237> 

2278 

DATA 

GEHE I MN I S , GEHE IMNISSE, VERGESSENE 

2105 

DATA  "ZU  KEINER  ZEIT","FUER  IMMER  UND 

»3 

<235> 

EWIG" 

<095> 

2120 

REM  +++++  DIVERSE  SUBSTANTIVE  ++++ 

<  161  > 

2122 

DATA  NICHTS, ALLES, "REIN  GAR  NICHTS",” 
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2279 

DATA 

VERLAN6EN , W I ESEN , EKSTAT I SCHE , 3 

<  188> 

6012 

DATA 

BEKAEMPFT , BEKAEMPFEN , 0 

<  136> 

2280 

DATA 

MESSER , MESSER , SCHARFE , 3 

<010> 

6013 

DATA 

ZERFAELLT , ZERFALLEN, 1 

<  172> 

2281 

DATA 

MAUER , MAUERN , STE I NERNE , 2 

<  107  > 

6014 

DATA 

ZERFR I SST , ZERFRESSEN , 0 

<  152> 

2282 

DATA 

MAG I E , ZAUBERE I EN , ERDFARBENE , 2 

<250> 

6015 

DATA 

LACHT, LACHEN, 1 

<  190> 

2283 

DATA 

PEST , KETTEN , STAEHLERNE , 2 

<198> 

6016 

DATA 

WINKT, WINKEN, 1 

<  1 18> 

2284 

DATA 

WAFFE , WAFFEN , VERBORGENE , 2 

<  1 58  > 

6017 

DATA 

FLUCHT, FLUCHEN, 1 

<  083  > 

2285 

DATA 

HUND , HUNDE , RE I SSENDE , 1 

<088> 

6018 

DATA 

TOETET , TOETEN , 2 

<016> 

2286 

DATA 

MONUMENT , KUNSTLEHRER , GERISSENE , 3 

<249> 

6019 

DATA 

ENTFLAMMT , ENTFLAMMEN ,  1 

<  138> 

2287 

DATA 

MALTE ,  "  L I PPE  ENTERPR I SES " , BERECH 

6020 

DATA 

STOLPERT , STOLPERN , 1 

<  147> 

TIBTE,0 

<  1 20  > 

6021 

DATA 

KRE I SCHT , KRE I SCHEN , 1 

<  052 > 

2288 

DATA 

MATTHIAS, MONUMENTE, IRDENE, 0 

<  193> 

6022 

DATA 

KNURRT , KNURREN , 1 

<241  > 

2289 

DATA 

STEFAN , E I NDRUECKE , GEWALT I GE , 0 

<241  > 

6023 

DATA 

VERWEHT , VERWEHEN , 1 

<  1 12> 

2290 

DATA 

DIRK , VI SI ONEN , FARBLOSE , 0 

<  129  > 

6024 

DATA 

BEWEGT , BEWEGEN , 0 

<221  > 

2291 

DATA 

BAUER , BAUERN , WE I CHE , 1 

<240> 

6025 

DATA 

DURCHBOHRT , DURCHBOHREN , 0 

<054> 

2292 

DATA 

UEBERMENSCH, GIGANTEN, KNORRIGE, 1 

<  080  > 

6026 

DATA 

SCHRE I T , SCHRE I EN , 1 

<001  > 

2293 

DATA 

WAHNS  I NN , CENTAUREN , ST I ERKOEPF I GE 

6027 

DATA 

ERDULDET , ERDULDEN , 0 

<021  > 

fl 

<  1 72> 

6028 

DATA 

FLUECHTET , FLUECHTEN , 1 

<  1 50  > 

2294 

DATA 

R I CHTER , R I CHTER , PULS I ERENDE , 1 

<  1 77  > 

6029 

DATA 

ERSCHLAEGT , ERSCHLAGEN , 0 

<051  > 

2295 

DATA 

SONNE , SONNEN , BERSTENDE , 2 

<01  3> 

6030 

DATA 

VERGEHT, VERGEHEN, 1 

<  1 1 1  > 

2296 

DATA 

GALAX I S , GALAX I EN , " STRAHLEND  SCHO 

6031 

DATA 

KRE IST, KRE ISEN, 1 

<  181  > 

ENE" 

2 

<  200  > 

6032 

DATA 

GLUEHT , GLUEHEN , 1 

<047> 

2297 

DATA 

WELTENKREIS, FRAGEN, GROESSTE, 1 

<  182> 

6033 

DATA 

SCHWEBT, SCHWEBEN, 1 

<  124> 

2298 

DATA 

I MPULS , I MPULSE , ROT I ERENDE , 1 

<  172> 

6034 

DATA 

STEIGT, STEIGEN, 1 

<  063  > 

2299 

DATA 

PULSAR , PULSARE , GRENZENLOSE , 1 

<  172> 

6035 

DATA 

SCHWANKT, SCHWANKEN, 1 

<244  > 

2300 

DATA 

SUPERNOVA , SUPERNOVAE , UNERMESSL I C 

6036 

DATA 

SINKT, SINKEN, 1 

<098> 

HE,  2 

<  056  > 

6037 

DATA 

BEKLAGT , BEKLAGEN , 0 

<  226  > 

2301 

DATA 

VAKUUM , FRAGMENTF , FRHF  T  TFRTE , 3 

<1  13> 

6038 

DATA 

STUERZT , STUERZEN , 1 

< 027  > 

2302 

DATA 

KUGELRAUMER , KUGELRAUMER , WAFFENST 

6039 

DATA 

VERL I ERT , VERL I EREN , 2 

<  1 1 9> 

ARRENDE , 1 

<  076> 

6040 

DATA 

BEERD I GT , BEERD I GEN , 0 

<249> 

2303 

DATA 

Z  YKLUS , Z  YKLEN , B ARB AR I SCHE , 1 

<020> 

6041 

DATA 

VERWUNDERT , VERWUNDERN , 0 

<028> 

2304 

DATA 

SCHMERZ , SCHMERZEN , RUHENDE , 1 

<  1 32  > 

6042 

DATA 

FORDERT , FORDERN , 2 

<245 > 

2305 

DATA 

GESCHUETZ , GESCHUETZE , RAUCHENDE , 3 

<  137> 

6043 

DATA 

BEZWINGT , BEZWINGEN , 0 

<061  > 

2306 

DATA 

WALL , WAELLE , MENTALE , 1 

<  090  > 

6044 

DATA 

FUEHRT , FUEHREN , 2 

<  1 78> 

2307 

DATA 

SCHWERTME I STER , HERAUSFORDERER , R I 

6045 

DATA 

ZWEIFELT, ZWEIFELN, 1 

<  1 7 1  > 

ESI6E, 1 

<  1 64  > 

6046 

DATA 

BEGEHRT , BEGEHREN , 0 

<  131  > 

2308 

DATA 

REVOLTE , REVOLTEN , GEWALTLOSE , 2 

<  1 73> 

6047 

DATA 

VERWANDELT , VERWANDELN ,  0 

<  023  > 

2309 

DATA 

KOMET , KOMETEN , GEFRORENE , 1 

<  1 72> 

6048 

DATA 

ERSCHAFFT , ERSCHAFFEN , 0 

<  167> 

2310 

DATA 

ME TEOR , METEORE , " HELL  GLUEHENDE " , 

6049 

DATA 

TEILT, TEILEN, 0 

<  177> 

1 

<  1 73  > 

6050 

DATA 

VERMODERT , VERMODERN , 1 

<  1 58  > 

2311 

DATA 

GAS , GASE , BETAEUBENDE , 3 

<  147> 

6051 

DATA 

VERS INKT , VERS INKEN , 1 

<120> 

2312 

DATA 

R AUMSCH I FF , RAUMSCH I FFE , STELLARE , 

6052 

DATA 

BESCHWOERT , BESCHWOEREN , 0 

<040> 

3 

<179> 

603- 

DATA 

FUNKELT , FUNKELN , 1 

<  046  > 

2313 

DATA 

STERN , STERNE , DROHENDE , 1 

<210> 

6054 

DATA 

DUFTET, DUFTEN, 1 

<051  > 

2314 

DATA 

MASSE , MASSEN , STARRE, 2 

<246 > 

6055 

DATA 

GEFRIERT, GEFRIEREN, 1 

<221  > 

2315 

DATA 

ENERG I E , ENERG I EN , RE I NE , 2 

<  160> 

6056 

DATA 

ERFR I ERT , ERFR I EREN , 1 

<033> 

2316 

DATA 

ZE I T , ZE I TEN , VERGLUEHENDE , 2 

<  044  > 

6057 

DATA 

VERLAESST , VERLASSEN , 0 

<  189> 

2317 

DATA 

RAUM , RAEUME , ERNEUERTE , 1 

<050> 

6058 

DATA 

ZERSPL I TTERT , ZERSPL I TTERN , 1 

<062> 

2318 

DATA 

RAUM-ZE I T , GEFUEHLE , FL I ESSENDE , 2 

<  060  > 

6059 

DATA 

ZERST I CHT , ZERSTECHEN , 0 

<  157> 

2319 

DATA 

TRAEGHE I T , OBERFLAECHEN , ZERSCHMOL 

6060 

DATA 

ZERREISST, ZERRE ISSEN,0 

<  068  > 

ZENE 

2 

<  1 13> 

6061 

DATA 

VERBRENNT , VERBRENNEN , 2 

<  136> 

2320 

DATA 

KUGEL , KUGELN , SELTSAME , 2 

<  167> 

6062 

DATA 

OPFERT, OPFERN, 2 

<  109> 

2321 

DATA 

MONOL I TH , MONOL I THEN , KR I STALL I NE , 

6063 

DATA 

ZERFETZT , ZERFETZEN , 0 

< 065 > 

1 

<049> 

6064 

DATA 

PRAHLT, PRAHLEN, 1 

<  174> 

2322 

DATA 

QUADER, QUADER, INTERSTELLARE , 3 

<089> 

6065 

DATA 

BEENDET , BEENDEN , 0 

<034> 

2323 

DATA 

QUASAR , QUASARE , ARCHA I SCHE , 1 

<  175> 

6066 

DATA 

ERLANGT , ERLANGEN , 0 

<  1 53  > 

2324 

DATA 

HERRSCHER , HERRSCHER , FASZ I N I EREND 

6067 

DATA 

ERBL I CKT , ERBL I CKEN , 0 

<  1B3> 

E,1 

<072> 

6068 

DATA 

VERFOLGT , VERFOLGEN , 0 

<  1 07  > 

2325 

DATA 

KOSMOS , DAEMPFE , HE I SSE , 1 

<203> 

6069 

DATA 

SEUFZT, SEUFZEN, 1 

<041  > 

2326 

DATA 

UN I VERSUM , KRE I SE , S I LBERNE , 3 

<  1 67  > 

6070 

DATA 

SPUERT , SPUEREN , 0 

<201  > 

2327 

DATA 

JUNGFRAU , JUNGFRAUEN , ST I L I S I ERTE , 

6071 

DATA 

VERME I DET , VERME I DEN , 0 

<036> 

2 

<  1 07  > 

6072 

DATA 

SINGT, SINGEN, 1 

<069> 

2328 

DATA 

TROPFEN , TROPFEN , TROPFENDE , 1 

<01 9> 

6073 

DATA 

BES I NGT , BES I NGEN , 0 

<  1 48  > 

2329 

DATA 

MATR I X , MATR I ZEN , KUBISCHE , 2 

<101> 

6074 

DATA 

BEWE I NT , BEWE I NEN , 0 

<  155> 

2330 

DATA 

KALKUEL , KALKUELE , DOGMAT I SCHE , 3 

<  035> 

6075 

DATA 

VERG ISST, VERGESSEN , 3 

<  066  > 

2331 

DATA 

EXPER I MENT .EXPERIMENTE , GRAUENHAF 

6076 

DATA 

BERUEHRT , BERUEHREN . 0 

<004  > 

TE  ,  3 

<il3> 

6077 

DATA 

ERKL I NGT , ERKL I NGEN , 1 

<  1 09> 

2332 

DATA 

HASELNUSS , HASELNUESSE , ASTRALE , 2 

<057> 

6078 

DATA 

VERGLUEHT , VERGLUEHEN , 1 

<077> 

2333 

DATA 

GESANG, GESAENGE, MEDITATIVE, 1 

<  143> 

6079 

DATA 

LEBT, LEBEN, 1 

<226> 

2334 

DATA 

DROGE , DROGEN , PSYCHEDEL I SCHE , 2 

<006> 

6080 

DATA 

SUCHT, SUCHEN, 0 

<213> 

2335 

DATA 

ANGST , AENGSTE , HYSTERISCHE , 2 

<233> 

6081 

DATA 

VERKUENDET , VERKUENDEN , 0 

<  189> 

2336 

DATA 

S I TAR , GERAEUSCHE , MORB I DE , 1 

<  1 86  > 

6082 

DATA 

ERWACHT , ERWACHEN , 1 

<  1 13> 

2337 

DATA 

ERKENNTN I S , ERKENNTNISSE , I ND I SCHE 

6083 

DATA 

GLAENZT , GLAENZEN , 1 

<  126> 

,3 

<097> 

6084 

DATA 

HUETET , HUETEN , 0 

<  079  > 

2338 

DATA 

STURM, STÜERME,GOETTLI CHE, 1 

<  104> 

6085 

DATA 

BETRACHTET , BETRACHTEN , 0 

<  152> 

6000 

REM  +++++  VERBEN  +++++++++++++++ 

<  150> 

6086 

DATA 

LAECHELT , LAECHELN , 1 

<  222  > 

6001 

DATA 

BESTAUNT , BESTAUNEN , 0 

<098> 

6087 

DATA 

ROTIERT, ROTIEREN, 1 

<062> 

6002 

DATA 

ZERFLIESST, ZERFLIESSEN, 1 

<  1 36  > 

6088 

DATA 

DURCHWANDERT , DURCHWANDERN , 0 

<061  > 

6003 

DATA 

RIESELT, RI ESELN, 1 

<252> 

6089 

DATA 

SCH I MMERT , SCH I MMERN , 1 

<  1 37  > 

6004 

DATA 

ERSTARRT , ERSTARREN , 1 

<  1 1 1  > 

6090 

DATA 

ANTWORTET , ANTWORTEN , 1 

<242  > 

6005 

DATA 

ZERBR I CHT , ZERBRECHEN , 2 

<015> 

6006 

DATA 

ZERSCHMETTERT , ZERSCHMETTERN , 2 

<049> 

6007 

DATA 

TRINKT, TRINKEN, 3 

<  173> 

6008 

DATA 

SCHLAEFT , SCHLAFEN , 1 

<210> 

6009 

DATA 

WANDERT , WANDERN , 1 

<026> 

6010 

DATA 

FLIEGT, FLIEGEN, 1 

<009> 

6011 

DATA 

KAEMPFT , KAEMPFEN , 1 

<244> 
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Hypra-Platos 

Endlich  Schluß  mit  der  elenden  Klebe¬ 
rei  von  Platinen-Layouts.  Mit  diesem 
Programm  spart  man  Geld,  Zeit  und 
Nerven. 

Das  Platinen-Layout-System  besteht  aus  drei  Programmtei¬ 
len.  Dem  Hauptprogramm  »0.  PRG«  (Listing  1),  »1.  PRG«  (Li- 
sting  2)  und  dem  Druckertreiber  »2.  PRG«  (Listing  3).  Sind  alle 
drei  Programme  abgetippt  und  befinden  sie  sich  auf  Ihrer  Dis¬ 
kette,  kann  das  Hauptprogramm  mit  l_OAD"0.  PRG”, 8  geladen 
und  mit  RUN  gestartet  werden. 

Nach  einigen  Sekunden  erscheint  ein  Titelbild  und  anschlie¬ 
ßend  das  Hauptmenü  auf  dem  Bildschirm.  Von  hier  können 
acht  Untermenüs  beziehungsweise  Unterprogramme  aufge¬ 
rufen  werden.  Die  einzelnen  Punkte  dieses  und  allen  folgen¬ 
den  Menüs  können  mit  der  RESTORE-Taste  verlassen  werden. 

1.  Bauteileliste: 

Die  einzelnen  Bauteileformen  werden  hier  definiert  und  ver¬ 
waltet.  Diese  Bauteildefinitionen  werden  für  die  Elementeliste 
benötigt. 

2.  Elementeliste: 

Die  Elementeliste  enthält  alle  Elemente,  die  in  der  Schaltung 
Vorkommen.  Hier  müssen  die  Elemente  definiert  werden,  be¬ 
vor  die  Verbindungsliste  erstellt  wird. 

3.  Verbindungsliste: 

Hier  werden  die  Verbindungen  angegeben,  die  der  Router 
später  routen  soll. 

4.  Bauteile  plazieren: 

Neben  dem  Plazieren  der  Elemente,  wird  von  hier  auch  der 

Manuell-Router  aufgerufen. 

5.  Routen: 

Der  Router  verlegt  automatisch  die  Verbindungen,  die  in  der 
Verbindungsliste  angegeben  wurden.  Bevor  diese  Routine 
aufgerufen  wird,  müssen  alle  Bauteile  plaziert  sein. 

6.  Sortieren: 

Hier  werden  die  Verbindungen  vor  dem  Routen  der  Länge 
nach  sortiert.  Das  erspart  dem  Router  viel  Arbeit.  Dadurch  wird 
die  Rechenzeit  geringer. 

7.  Optimieren: 

Verbindungsketten,  wie  Masse-  oder  Plusschienen  werden 
optimiert. 

8.  Features: 

Disketten-  und  Druckerverwaltung. 

0.  Ende: 

Rücksprung  zum  Basic  mit  Sicherheitsabfrage. 

Zur  Bauteileliste 

In  der  Bauteileliste  wird  die  Bauteilbibliothek  verwaltet.  Hier 
werden  die  Informationen  über  die  Lage  der  Pins  und  die  Grö¬ 
ße  des  Gehäuses  gespeichert.  Wichtig  ist  im  Untermenü  »Ein¬ 
trägen«,  daß  sich  alle  Pinangaben  auf  den  Pin  1  beziehen.  Da¬ 
bei  muß  der  Pin  1  in  der  linken  oberen  Ecke  positioniert  wer¬ 
den.  Jedem  definierten  Bauteil  wird  eine  sogenannte  Organi¬ 
sationsnummer  zugeordnet,  die  bauteilunabhängig  ist  und  nur 
durch  die  Reihenfolge  der  Eingabe  bestimmt  wird.  Um  zum 
Beispiel  ein  14poliges  IC  in  die  Bauteileliste  einzutragen,  ist 
wie  folgt  vorzugehen: 

1.  Vom  Hauptmenü  aus  das  Menü  Bauteileliste  anwählen. 

2.  Vom  Untermenü  Bauteileliste  den  Punkt  3  Einträgen  anwäh¬ 
len. 

Auf  dem  Bildschirm  erscheint  die  Abfrage  nach  dem  Bauteil¬ 
typ.  Die  7  Buchstaben  stellen  jeweils  den  Anfangsbuchstaben 
des  Bauteiltyps  dar. 


I  =  IC,  T  =  Transistor,  S  =  Steckerleiste  oder  Schalter,  K  = 
Kondensator,  W  =  Widerstand,  X  =  Joker  für  beliebige  ande¬ 
re  Bauteiltypen,  E  =  Ende 

3.  I  für  IC  eingeben. 

4.  Für  die  Anzahl  der  Pins  14  eingeben. 

5.  Da  Hypra-Platos  mit  einer  Auflösung  von  y20  Zoll  arbeitet, 
muß  die  Länge  und  die  Breite  des  Gehäuses  mit  2  multipliziert 
werden.  Von  dieser  Zahl  ist  2  abzuziehen.  In  unserem  Fall  ent¬ 
spricht  das  2*7-2  =  12  für  die  x-Ausdehnung. 

6.  Entsprechend  gilt  für  die  y-Ausdehnung  2  *4-2 =6. 

7.  x-Position  von  Pin  1  eingeben.  Hier  0 

8.  y-Position  von  Pin  1  eingeben.  Hier  ebenfalls  0 

9.  Geben  Sie  folgende  Zahlengruppen  ein,  jeweils  für  die  x- 
und  y-Position  der  Pins  2  bis  14:  2,  0;  4,  0;  6,  0;  8,  0;  10,  0; 
12,  0;  12,  6;  10,  6;  8,  6;  6,  6;  4,  6;  2.  6;  0,  6. 

10.  Jetzt  können  Sie  entweder  ein  weiteres  Bauteil  definieren 
oder  zurück  ins  Menü  Bauteileliste  springen. 

Die  anderen  Menüpunkte  dienen  dazu,  die  Bauteileliste  zu 
verwalten: 

1.  Listen: 

Alle  Bauteile  werden  nach  dem  Schema  »Bauteiltyp  Pinan¬ 
zahl  =  Organisationsnummer«  geLISTet.  Zum  Beispiel  T  3  =  2 

2.  Löschen: 

Um  ein  Bauteil  zu  löschen,  ist  die  Organisationsnummer  an¬ 
zugeben.  Zum  Beispiel  2  für  T  (Transistor) 

3.  Einträgen: 

Bauteile  definieren. 

4.  Speichern: 

Zum  Abspeichern  der  Bauteileliste  muß  eine  Listennummer 
»n«  angegeben  werden.  Es  wird  ein  File  mit  dem  Namen  »n. 
Baut«  erzeugt,  »n«  ist  dabei  die  Listennummer  und  muß  zwi¬ 
schen  0  und  9  liegen. 


5.  Laff'  i: 


Zum  Laden  der  Bauteileliste  ist  die  Listennummer  einzuge¬ 
ben. 

6.  Drucken: 

Entspricht  dem  Punkt  1  (Listen),  aber  auf  dem  Drucker. 

7.  Zeigen: 

Die  Pins  des  Bauteils  mit  der  Organisationsnummer  »n«  wer¬ 
den  auf  dem  Bildschirm  dargestellt.  Pin  1  =  A  bis  Pin  26  =  Z 

Zur  Elementeliste 

Die  Elementeliste  enthält  alle  Elemente,  die  sich  in  der 
Schaltung  beziehungsweise  auf  der  Platine  befinden.  Alle  Ele¬ 
mente  müssen  zuvor  in  der  Bauteileliste  definiert  sein.  Der 
wichtigste  Punkt  in  diesem  Untermenü  ist  der  Punkt  4  »Einge¬ 
ben«.  Wir  wollen  nun  unser  zuvor  definiertes  14poliges  IC  in 
die  Elementeliste  eintragen.  Dazu  ist  folgendermaßen  vorzu¬ 
gehen: 

1.  Punkt  4  »Eingeben«  im  Untermenü  Elementeliste  anwählen. 

2.  Bauteiltyp  eingeben  (T,I,S,K,W,X).  Hier  I 

3.  Bauteilnummer  eingeben.  (1  bis  255)  Hier  1 

4.  Die  Taste  RETURN  drücken. 

5.  Die  Organisationsnummer  angeben.  Hier  ebenfalls  1 
Damit  ist  das  Element  II  in  der  Elementeliste  eingetragen. 

Um  ein  zweites  Element,  ebenfalls  ein  14poliges  IC,  unter  dem 
Namen  12  einzutragen,  müssen  Sie: 

1.  Bauteiltyp  eingeben.  Hier  1 

2.  Bauteilnummer  eingeben.  Hier  2 

3.  Die  Taste  RETURN  drücken. 

4.  Die  Organisationsnummer  angeben.  Hier  wieder  1 
Geben  Sie  jetzt  »E«  für  Ende  ein,  befinden  Sie  sich  wieder 

im  Untermenü  Elementeliste. 

Die  restlichen  Menüpunkte  dienen  dazu,  die  Elementeliste 
zu  verwalten: 

1.  Speichern: 

Die  Elementeliste  wird  gespeichert.  Es  ist  wieder  eine  Li¬ 
stennummer  anzugeben. 
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2.  Laden: 

Die  Elementeliste  mit  der  Listennummer  »n«  wird  geladen. 

3.  Drucken: 

Entspricht  Punkt  1  (Listen),  aber  auf  dem  Drucker. 

4.  Eingeben: 

Hier  werden  die  Elemente  eingegeben,  die  später  auf  der 
Platine  plaziert  werden. 

Das  Format  ist:  Bauteiltyp  (T,I,S,K,W,X),  Bauteilnummer  (1  bis 
255),  Organisationsnummer  aus  der  Bauteileliste.  Wenn  eine 
Organisationsnummer  nicht  existiert,  erfolgt  eine  Fehlermel¬ 
dung.  Existiert  das  Element  schon,  so  wird  das  alte  Element 
überschrieben.  Wird  für  die  Organisationsnummer  eine  »0« 
eingegeben,  wird  das  Element  ersatzlos  gelöscht.  In  das  Un¬ 
termenü  Elementeliste  kommt  man  mit  der  Taste  »E«  für  Ende. 

5.  Listen: 

Die  Elemente  werden  in  dem  Format  der  Eingabe  geLISTet 
(Bauteiltyp,  Bauteilnummer,  Organisationsnummer). 

Alle  Elemente,  die  später  in  der  Verbindungsliste  benötigt 
werden,  müssen  jetzt  definiert  sein. 

Zur  Verbindungsliste 

Die  in  der  Elementeliste  eingegebenen  Elemente  müssen 
verbunden  werden,  um  den  Auto-Router  aufrufen  zu  können. 
Wir  wollen  jetzt  als  Beispiel  alle  Punkte  der  zuvor  definierten 
zwei  Elemente  (11,12)  miteinander  verbinden.  Dazu  gehen  Sie 
wie  folgt  vor: 

1.  Menüpunkt  4  »Eingeben«  im  Untermenü  Verbindungsliste 
an  wählen. 

2.  Bauteiltyp  eingeben.  Hier  I 

3.  Bauteilnummer  eingeben.  Hier  1 

4.  Taste  RETURN  drücken. 

5.  Pinnummer  eingeben,  von  dem  aus  verbunden  werden  soll. 
Hier  1 

6.  Taste  RETURN  drücken. 

7.  Bauteiltyp  eingeben,  zu  dem  verbunden  werden  soll.  Hier  I 

8.  Entsprechende  Bauteilenummer  eingeben.  Hier  2 

9.  Taste  RETURN  drücken. 

10.  Entsprechende  Pinnummer  eingeben.  Hier  1 

11.  Taste  RETURN  drücken. 

12.  Taste  »E«  für  Einträgen  drücken,  beziehungsweise  »L«  für 
Löschen. 

Auf  dem  Bildschirm  sollte  jetzt  folgende  Zeile  zu  sehen  sein: 
>1  1  ,PIN  1=12  ,PIN  1  (L/E)? 

Wiederholen  Sie  die  Punkte  1  bis  12  so  lange,  bis  Sie  alle 
IC-Beinchen  miteinander  verbunden  haben. 

Haben  Sie  bei  einem  Eintrag  etwas  Falsches  eingegeben, 
brauchen  Sie  nicht  zu  verzweifeln.  Drücken  Sie,  wenn  das 
»Größer-Zeichen«  erscheint  die  Taste  »E«  für  Ende.  Sie  befin¬ 
den  sich  wieder  im  Untermenü  Verbindungsliste  und  können 
im  Punkt  5  »Editieren«  die  soeben  erstellte  Verbindungsliste 
ändern.  Mit  der  Taste  »Fl«  und  »F2«  kann  vor-  und  zurückge¬ 
blättert  werden,  mit  »D«  kommt  man  in  den  Eingabemodus  und 
»M«  steht  für  manipulieren.  Wichtig  ist,  daß  die  zu  ändernde 
Zeile  komplett  neu  eingegeben  wird. 

Alle  weiteren  Unterpunkte  des  Untermenüs  Verbindungsli¬ 
ste  dienen  dazu,  die  Verbindungsliste  zu  verwalten: 

1.  Speichern: 

Dazu  muß  analog  zur  Elementeliste  eine  Listennummer  an¬ 
gegeben  werden. 

2.  Laden: 

Eine  Verbindungsliste  mit  der  Nummer  »n«  wird  geladen. 

3.  Drucken: 

Die  Verbindungsliste  wird  gedruckt. 

4.  Eingeben: 

Die  Verbindungsliste  kann  erstellt  werden. 

5.  Editieren: 

Verbindungsliste  kann  geändert  werden. 


6.  Listen: 

Alle  Verbindungen  erscheinen  in  Form  der  Eingabe  auf  dem 
Bildschirm. 

Zum  Bauteile  plazieren 

In  diesem  Untermenü  können  nicht  nur  Bauteile  plaziert  wer¬ 
den,  sondern  von  hier  läßt  sich  auch  der  »manuelle  Router« 
aufrufen. 

Die  Untermenüpunkte  im  einzelnen: 

1.  Bauteile  plazieren: 

Wird  dieser  Punkt  angewählt,  befindet  man  sich  in  einem 
bildschirmorientierten  Editor,  wie  ihn  viele  Textverarbeitungs¬ 
programme  auch  haben.  Die  unteren  drei  Bildschirm-Zeilen 
dienen  als  Informations-Zeilen.  Hier  sind  die  momentane 
Cursor-Position,  die  Drehung  des  aktuellen  Bauteils  und  die 
möglichen  Befehls-Tasten  aufgeführt.  Um  ein  Bauteil  zu  plazie¬ 
ren,  muß  zuerst  das  Element  in  der  Form  Bauteiltyp,  Bauteil¬ 
nummer  eingegeben  werden.  Zum  Beispiel  »II«  oder  »12«.  Ein 
blinkender  Cursor  macht  jetzt  darauf  aufmerksam,  daß  Sie  das 
angewählte  Bauteil  plazieren  können.  Mit  den  Cursor- 
Steuertasten  kann  der  Bildschirm,  von  dem  immer  nur  ein  Aus¬ 
schnitt  zu  sehen  ist,  in  alle  vier  Richtungen  gescrollt  werden. 
Beim  (T)esten  erscheinen  die  Pins  auf  dem  Bildschirm  Wird 
die  Taste  »D«  gedrückt,  wird  das  Bauteil  immer  um  90  Grad  im 
Uhrzeigersinn  gedreht.  Nach  (S)etzen  wird  das  Bauteil  auf  der 
Platine  plaziert.  Mit  (V)erschieben  läßt  sich  ein  schon  plazier¬ 
tes  Bauteil  auf  der  Platine  verschieben.  Der  Cursor  muß  je¬ 
doch  auf  dem  Pin  1  stehen.  Mit  (E)nde  kommt  man  wieder  zu¬ 
rück  ins  Untermenü  »Bauteil  plazieren«. 

2.  Listen: 

Plazierte  beziehungsweise  nicht  plazierte  Bauteile  werden 
geLISTet. 

3.  Löschen: 

Pja^'erte  Bauteile  können  gelöscht  werden.  Dazu  ist  der 
Bauteiuyp  und  die  Bauteilnummer  einzugeben.  Zum  Beispiel 
II  oder  12. 

4.  Verbinden: 

Um  mit  dem  Auto-Router  arbeiten  zu  können,  muß  die  Ver¬ 
bindungsliste  in  eine  für  den  Router  verständliche  Form  umge¬ 
wandelt  werden.  Diese  Routine  ist  vor  jedem  neuen  Routvor¬ 
gang  aufzurufen. 

5.  Manual  Router: 

Hier  kann  die  Platine  manipuliert  werden,  nachdem  der  Rou¬ 
ter  die  Verbindungen  gezogen  hat.  Wird  dieser  Punkt  ange¬ 
wählt,  befindet  man  sich  wieder  in  einem  bildschirmorientier¬ 
ten  Editor,  der  genauso  aufgebaut  ist,  wie  der  Editor  zum  Pla¬ 
zieren  der  Bauteile.  Mit  der  Taste  »Fl«  kann  die  aktuelle  Plati¬ 
nenseite  umgeschaltet  werden. 

6.  Pin  1  listen: 

Die  Koordinaten  eines  plazierten  Elements  werden  angege¬ 
ben.  Dazu  ist  der  Bauteiltyp  und  die  Bauteilnummer  einzuge¬ 
ben.  Zum  Beispiel  II  oder  12. 

7.  Alles  löschen: 

Alle  drei  Listen  und  die  Platine  werden  gelöscht. 

8.  Bahnen  löschen: 

Die  Leiterbahnen  der  aktuellen  Platinenseite  werden  ge¬ 
löscht.  Soll  der  Auto-Router  noch  einmal  aufgerufen  werden, 
ist  vorher  der  Punkt  4  (Verbinden)  anzuwählen. 

9.  Seiten  tauschen: 

Die  beiden  Platinenseiten  werden  vertauscht. 

Zum  Routen 

Die  Leiterbahnen  auf  der  aktuellen  Platinenseite  werden  au¬ 
tomatisch  verlegt.  Sollten  Fehlverbindungen  auftreten,  kann, 
nachdem  die  aktuelle  Platinenseite  umgeschaltet  wurde, 
nochmals  geroutet  werden. 

Zum  Sortieren 

Die  Verbindungen  werden  der  Länge  nach  sortiert. 

Zum  Optimieren 

Verbindungsketten  werden  optimiert. 
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Zum  Menü  »Features« 

Dieses  Untermenü  dient  in  erster  Linie  zur  Drucker-  und  Dis¬ 
kettenverwaltung: 

1.  Layout: 

Der  Druckertreiber  wird  geladen.  Dazu  muß  sich  die  Diskette 
mit  dem  Programm  »2.  PRG«  im  Laufwerk  befinden. 

2.  DOS: 

Disketten-Befehle  werden  gesendet.  Mit  »$«  kann  das  Di¬ 
rectory  geladen  und  betrachtet  werden. 

3.  Matrix  OP: 

Die  aktuelle  Platinenseite  wird  gespeichert  oder  geladen.  Zu 
beachten  ist,  daß  jeweils  nur  ein  Matrix-File  pro  Diskettenseite 
gespeichert  werden  kann. 

4.  Fehlverbindungen: 

Die  Verbindungen,  die  der  Router  nicht  gefunden  hat,  wer¬ 
den  in  Koordinatendarstellung  ausgegeben. 

Zum  Druckertreiber 

Dieser  Programmteil,  der  im  Untermenü  »Features«  mit 
Punkt  1  nachgeladen  wird,  kann  beide  Platinenseiten,  entwe¬ 


der  auf  einem  FX-80  (und  kompatible)  oder  einem  VC  1526, 
MPS  802,  ausdrucken.  Dazu  erscheint  auf  dem  Bildschirm  ei¬ 
ne  Druckermaske.  Alle  Parameter  können  wie  folgt  eingestellt 
werden: 

Drucker:  FA/  —  Auswahl  des  Druckers  FX-80  oder  VC  1526 
Größe :  1/2  —  Ist  nur  beim  VC  1526  ansprechbar.  Es  wird  das 
Verhältnis,  mit  dem  gedruckt  wird,  festgelegt  (1:1  oder  2:1). 
Beim  FX-80  wird  immer  im  Verhältnis  2:1  gedruckt. 

Seite :  1/2  — Legt  fest,  welche  Platinenseite  ausgedruckt  wird. 
Modus  :  R/S  —  definiert,  ob  die  Platinenseite  richtig  (R)  oder 
spiegelverkehrt  (S)  gedruckt  wird. 

D-Kanal:  (0  bis  9)  Nur  bei  Betrieb  eines  FX-80.  Entspricht  Se¬ 
kundäradresse  zum  Senden  von  Daten  (interfacespezifisch). 
B-Kanal:  (0  bis  9)  Identisch  mit  D-Kanal;  nur  wird  hier  ein  Be¬ 
fehlskanal  zur  Verfügung  gestellt. 

Der  Druckvorgang  kann  mit  der  RUN/STOP-Taste  unterbro¬ 
chen  werden.  Nachdem  eine  Platinenseite  gedruckt  wurde, 
erfolgt  die  Abfrage,  ob  weiter  gedruckt  oder  in  das  Hauptpro¬ 
gramm  zurückgesprungen  werden  soll.  (Eckhard  Krabel/ah) 
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9c  20 

C0 

0c 

d0 

+  7 

18 

a5 

fa 

69 

87 

9628 

: 

a6 

+e 

bd 

43 

95 

91 

fc 

e8 

dl 

9928 

: 

18 

00 

00 

00 

f8 

f  8 

18 

18 

28 

9c2B 

80 

85 

f  a 

90 

02 

e6 

fb 

18 

b3 

9630 

: 

c8 

C0 

04 

d0 

+  5 

e6 

+  9 

a5 

3d 

9930 

: 

18 

00 

3c 

7e 

66 

66 

7e 

3c 

33 

9c  30 

a5 

fc 

69 

0c 

85 

fc 

90 

02 

b6 

9638 

: 

+  9 

c9 

80 

d0 

02 

38 

60 

18 

e4 

9938 

: 

00 

20 

2f 

f  3 

a9 

00 

85 

b7 

b3 

9c3B 

e6 

fd 

e6 

f  9 

a5 

f  9 

c  9 

50 

07 

9640 

: 

60 

a0 

03 

a6 

f  e 

bd 

43 

95 

9c 

9940 

: 

a9 

01 

a2 

04 

ac 

67 

95 

20 

30 

9c40 

d0 

C0 

a9 

00 

85 

fc 

a9 

C0 

43 

9648 

: 

91 

fc 

eB 

88 

C0 

+  + 

d0 

+  5 

de 

9948 

: 

00 

fe 

20 

4a 

f  3 

20 

33 

f  3 

0e 

9c4B 

85 

fd 

20 

2+ 

9a 

e6 

f  8 

a9 

d2 

9650 

c6 

+  9 

a5 

+  9 

c9 

ff 

d0 

02 

9f 

9950 

: 

a2 

01 

20 

50 

f  2 

a9 

lb 

20 

ae 

9c50 

00 

85 

+  9 

18 

ad 

6a 

95 

65 

e3 

9658 

38 

60 

18 

60 

20 

44 

e5 

a9 

e2 

9958 

: 

d2 

ff 

a9 

47 

20 

d2 

ff 

a9 

69 

9c5B 

f  8 

85 

fa 

ad 

6b 

95 

69 

00 

90 

9660 

ld 

aß 

95 

20 

le 

ab 

20 

2+ 

55 

9960 

: 

lb 

20 

d2 

ff 

a9 

73 

20 

d2 

9c 

9c60 

B5 

fb 

a5 

+  8 

10 

94 

4c 

Be 

5f 

9668 

+  3 

a9 

06 

aB 

a2 

04 

20 

00 

91 

9968 

: 

ff 

a9 

01 

20 

d2 

ff 

a9 

lb 

Ba 

9c6B 

9a 

ad 

66 

95 

c9 

52 

d0 

03 

9e 

9670 

fe 

a9 

00 

85 

b7 

20 

4a 

+  3 

81 

9970 

: 

20 

d2 

ff 

a9 

33 

20 

d2 

ff 

ae 

9c  70 

4c 

81 

99 

4c 

e4 

9b 

20 

44 

al 

9678 

a2 

06 

20 

50 

+  2 

a9 

13 

20 

38 

9978 

: 

a9 

16 

20 

d2 

ff 

20 

33 

f  3 

44 

9c78 

e5 

a2 

0a 

a0 

02 

18 

20 

0a 

ba 

9680 

d2 

ff 

20 

33 

+  3 

a9 

05 

a2 

a6 

9980 

: 

60 

20 

39 

99 

20 

94 

9a 

a9 

d6 

9c80 

e5 

a9 

al 

a0 

9c 

20 

le 

ab 

51 

9688 

04 

aS 

20 

00 

+  e 

a9 

00 

85 

31 

9988 

: 

00 

85 

f  8 

85 

f  9 

ad 

6a 

95 

lb 

9c8B 

20 

3e 

+  1 

+  0 

fb 

c9 

4a 

d0 

3b 

9690 

b7 

20 

4a 

f  3 

a9 

01 

a2 

04 

9e 

9990 

; 

85 

f  a 

ad 

6b 

95 

85 

fb 

a9 

34 

9c90 

03 

4c 

00 

91 

C9 

4e 

dB 

f0 

20 

9698 

a0 

00 

84 

b7 

20 

00 

+  e 

20 

B+ 

9998 

: 

00 

85 

fc 

a9 

cc 

85 

fd 

aß 

01 

9c9B 

a9 

01 

a2 

3d 

aß 

6b 

4c 

a2 

ee 

96a0 

4a 

+  3 

a2 

01 

20 

50 

+  2 

a9 

50 

99a0 

: 

00 

78 

a5 

01 

29 

fc 

85 

01 

fB 

9ca0 

63 

20 

57 

45 

49 

54 

45 

52 

83 

96aB 

0d 

20 

d2 

f  + 

ad 

65 

95 

c9 

6a 

99a8 

: 

bl 

f  a 

48 

a5 

01 

09 

03 

85 

Bd 

9ca8 

20 

44 

52 

55 

43 

4b 

45 

4e 

6a 

96bQ 

31 

dB 

06 

20 

04 

96 

18 

90 

45 

99b0 

s 

01 

58 

68 

20 

00 

9a 

aB 

BQ 

53 

9cb0 

20 

3+ 

20 

28 

4a 

2f 

4e 

29 

27 

96bB 

03 

20 

0d 

96 

a0 

00 

84 

+  8 

f0 

99b8 

: 

bl 

fe 

91 

fc 

cB 

C0 

0c 

dB 

51 

9cb8 

20 

00 

+  + 

00 

ff 

00 

ff 

00 

dB 

96c0 

ad 

66 

95 

c9 

52 

d0 

06 

20 

43 

99c  0 

: 

+7 

18 

a5 

+  a 

69 

80 

B5 

fa 

33 

96c8 

11 

97 

18 

90 

03 

20 

8a 

9b 

50 

99c8 

. 

90 

02 

e6 

fb 

38 

a5 

+  c 

e9 

0b 

96d0 

: 

20 

63 

97 

18 

a5 

■f  a 

69 

80 

64 

99d0 

: 

0C 

85 

-fc 

a5 

fd 

e9 

00 

85 

cd 
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Drucksache 

Mit  »Profiprint«  wird  »Hypra-Text«,  das 
Listing  des  Monats  aus  der  letzten 
Ausgabe,  zu  einem  kompletten  Text- 
verarbeitungs-System  ausgebaut. 

Geben  Sie  bitte  das  Listing  ein  und  speichern  Sie  es  auf 
der  Diskette,  auf  der  sich  auch  »Hypra-Text«  befindet.  Starten 
Sie  »Hypra-Text«  wie  gewohnt  (»Kennungs-POKEs«  nicht  ver¬ 
gessen).  Im  Hauptmenü  drücken  Sie  die  Taste  »3«.  »Profiprint« 
wird  jetzt  automatisch  nachgeladen  und  gestartet.  Zuerst  ein¬ 
mal  müssen  Sie  einige  Parameter  bestimmen: 
Druckeradresse 

In  den  meisten  Fällen  wird  der  Drucker  über  die  Adresse  »4« 
angesprochen.  Bei  eventuell  auftretenden  Problemen  lesen 
Sie  bitte  im  Druckerhandbuch  nach. 

Datum 

Hier  sind  Sie  nicht  an  das  Format  »ttmmjj«  gebunden.  Sie 
können  zum  Beispiel  auch  »17.September  1985«  eingeben. 

User-Port-Interface 

Wenn  Sie  Ihren  Drucker  über  ein  User-Port-Centronics-Ka- 
bel  betreiben,  so  geben  Sie  auf  diese  Frage  ein  »j«  ein.  Es  wird 
dann  automatisch  die  benötigte  Software  installiert.  Für- 
Drucker,  die  am  seriellen  Bus  angeschlossen  sind,  geben  Sie 
»n«  ein. 

Sekundäradresse 

Bei  den  Commodore-Druckern  der  Reihe  MPS...  ist  diese 
meist  »7«.  Bei  Epson-  oder  Star- Druckern,  die  über  ein  Interfa¬ 
ce  angeschlossen  sind,  müssen  Sie  eine  »10«  eingeben.  Bei 
Unklarheiten  hilft  meistens  das  Druckerhandbuch. 

Einzelblattmodus 

Hier  können  Sie  wählen,  ob  Sie  nach  jeder  gedruckten  Seite 
ein  neues  Blatt  einlegen  wollen.  Der  Computer  wartet  dann 
nach  jedem  Blatt,  bis  Sie  eine  Taste  drücken. 

Jetzt  kommt  das  Wichtigste:  Wenn  Sie  das  erstemal  mit 
»Profiprint«  arbeiten,  müssen  Sie  sich  ein  Formblatt  erstellen. 
Das  ist,  einfach  gesagt,  ein  optischer  Rahmen  für  Ihren  ausge¬ 
druckten  Text.  Auf  jeder  Druckseite  wird  dieses  Formblatt  mit 
ausgedruckt.  Sie  können  zum  Beispiel  Ihren  Namen  und  Ihre 
Adresse,  das  aktuelle  Datum  und  die  Nummer  der  Druckseite  in 
das  Formblatt  integrieren.  Um  sich  ein  Formblatt  zu  erstellen, 
geben  Sie  auf  die  Frage  nach  dem  Einzelblattmodus  ein  »f«  ein. 

Jetzt  wird  zur  Druckparameter-Definierung  verzweigt.  Die 
nun  folgenden  Eingaben  werden  mit  in  das  Formblatt  über¬ 
nommen  und  gelten  für  jeden  Ausdruck.  Sie  müssen  sich  na¬ 
türlich  vorher  überzeugen,  ob  Ihr  Drucker  zum  Beispiel  die  ver¬ 
schiedenen  Druckarten  auch  beherrscht.  Da  wären: 
Normal/klein 

»Klein«  bedeutet,  daß  mit  komprimierter  Schrift  mit  der 
Schriftart  »Superscript«  gedruckt  wirck  Diese  Funktion  benö¬ 
tigt  man,  wenn  man  extrem  viel  Text  auf  eine  Seite  bringen  will. 

Normai/komprimiert 

Hier  bedeutet  »komprimiert«,  daß  der  Drucker  auf  136  Zei¬ 
chen  pro  Zeile  eingestellt  wird.  »Normal«  sind  80  Zeichen  pro 
Zeile. 

Normal/Elite 

Die  Schriftart  »Elite«  ist  auch  eine  Art  der  Text-Verdichtung. 
Allerdings  wird  nur  von  80  Zeichen  pro  Zeile  auf  96  Zeichen 
komprimiert. 

Normal/NLQ/Empha 

Um  die  NLQ-Schrift  zu  benutzen,  müssen  Sie  natürlich  ei¬ 
nen  entsprechenden  Drucker  besitzen.  Bei  der  Schriftart 
»Empha«  wird  der  Text  hervorgehoben  gedruckt. 

Null  mit  Strich 

Sie  können  jetzt  die  Form  der  Null  bestimmen.  Wenn  Sie  oft 


Texte  mit  mathematischem  Inhalt  drucken,  so  empfiehlt  sich, 
die  »durchgestrichene  Null«  zu  wählen. 

Zeichen  pro  Druckerzeile 

Diese  Zahl  sagt  dem  Programm,  nach  wieviel  Zeichen  es  ei¬ 
ne  neue  Zeile  anfangen  soll,  abhängig  von  der  gewählten 
Schriftart.  Wenn  Sie  zum  Beispiel  »Elite«  gewählt  haben,  dann 
müssen  Sie  hier  eine  »96«  eingeben. 

Davon  benutzte  Zeichen 

»Profiprint«  läßt  der  Übersichtlichkeit  wegen  einen  linken 
und  einen  rechten  Rand  frei.  Die  Randbreite  bestimmen  Sie 
hier.  Wenn  Sie  zum  Beispiel  96  Zeichen  pro  Zeile  haben,  und 
davon  nur  81  nutzen  möchten,  so  wird  der  Rest  auf  1/3  linken 
Rand  (hier  5  Zeichen)  und  2/3  rechten  Rand  (hier  10  Zeichen) 
verteilt. 

Zeilen  pro  Druckseite 

Hier  müssen  Sie  die  Länge  Ihres  Druckerpapiers  eingeben. 
Endlospapier  hat  meist  72  Zeilen  pro  Seite;  Einzelblatt  meist 
60  Zeilen  pro  Seite.  Der  nun  folgende  Teil  der  Formblatterstel¬ 
lung  ist  der  wichtigste:  Überlegen  Sie  sich  gut,  wie  ein  Text¬ 
ausdruck  später  einmal  aufgebaut  sein  soll.  Sinnvoll  wäre  zum 
Beispiel:  Erste  Zeile  nur  Minus-Zeichen  (als  Markierung), 
zweite  Zeile  Ihr  Name...  In  der  fünften  und  sechsten  Bild¬ 
schirmzeile  von  oben  wird  die  genaue  Position  innerhalb  des 
Formblattes  angezeigt,  auf  die  sich  die  nächste  Eingabe  be¬ 
zieht  (Position  x=0,  y=1  ist  ganz  links  oben). 

In  alle  Zeilen,  in  denen  ein  »Ist-gleich-Zeichen«  steht,  wird 
später  der  eigentliche  Text  gedruckt.  Ein  Punkt  innerhalb  des 
Formblattes  sagt  dem  Computer,  daß  er  an  diese  Stelle  das 
weiter  oben  eingegebene  Datum  drucken  soll.  An  Stellen,  an 
denen  ein  »Sternchen«  (*)  steht,  wird  die  aktuelle  Drucksei¬ 
tennummer  gedruckt. 

Weitere  Tastenfunktionen  sind: 

»  t «  —  Teile  des  Textes  mit  »=«-Zeichen  ausfüllen. 

Fl  —  rLrmblatt-Eingabe  beenden.  Wenn  Sie  mit  Ihrem  Werk 
zufrieden  sind,  und  es  gespeichert  haben  (!),  drücken  Sie  die¬ 
se  Taste.  Danach  sind  Sie  wieder  bei  der  Frage,  ob  Sie  ein 
User-Port-Interface  besitzen. 

F3  —  Das  bis  jetzt  erstellte  Formblatt  wird  ausgedruckt.  Für  die 
»=«-Zeichen  setzt  der  Computer  dabei  das  Wort  »-Test-«  ein. 
So  können  Sie  Ihre  Eingaben  jederzeit  überprüfen. 

F5  —  Zeile  hoch.  Der  Cursor  geht  eine  Zeile  nach  oben. 
»Return« — Zeile  nach  unten.  Der  Cursor  springt  in  die  nächste 
Zeile. 

F7  —  Speichern.  Wenn  Sie  Ihr  Formblatt  fertiggestellt  haben, 
können  Sie  es  durch  diese  Taste  auf  Diskette  schreiben.  Als 
Name  ist  »FORM«  sinnvoll. 

F2  —  Formblatt  laden.  Hier  können  Sie  ein  bereits  erstelltes 
Formblatt  in  den  Computer  laden,  und  beliebig  verändern. 

F4  —  Die  aktuelle  Cursorzeile  wird  auf  Mitte  zentriert. 

F6  —  Die  Cursorzeile  wird  rechtsformatiert. 

F8  —  Die  Cursorzeile  wird  im  Blocksatz  formatiert.  (Zur  Erläu¬ 
terung:  Dieser  Text  ist  zum  Beispiel  blocksatzformatiert.) 

Mit  der  Tastenkombination  »Control«  und  »L«  löschen  Sie 
das  Formblatt. 

»Control«  und  »E«  führt  Sie  zur  Parameter- Eingabe  zurück. 
Wenn  Sie  Ihr  Formblatt  fertiggestellt,  gespeichert  und  Fl  ge¬ 
drückt  haben,  landen  Sie  wieder  bei  der  Frage  nach  dem  User- 
Port-Interface  und  nach  der  Druckersekundäradresse. 

Die  nächste  Frage  des  Computers  (»Einzelblatteinzug  ?«) 
beantworten  Sie  entsprechend  dem  von  Ihnen  verwendeten 
Papier.  Danach  müssen  Sie  den  Namen  des  Formblattes  ein¬ 
geben.  Jetzt  sehen  Sie  auch,  warum  der  Name  »FORM«  sinn¬ 
voll  war:  Sie  brauchen  nur  noch  »RETURN«  zu  drücken; 
»FORM«  steht  schon  auf  dem  Bildschirm. 

In  Zeile  6070  müssen  Sie  den  Namen  einsetzen,  den  das 
Hauptprogramm  »Hypra-Text«  auf  Ihrer  Diskette  besitzt. 

(Oliver  Fendt/tr) 
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1  PQKE  650, 128: IF  PEEK(1022>=0  THEN  5000 

<066> 

190 

FZ=1 : FOR  T=1  TO  YY+20: GOSUB  3500: GOSUB 

2  POKE  2,32: POKE  53280, 0:POKE  5328 1,0: PR IN 

12000 

<  163> 

T" CWHITEV 

<221  > 

198 

NEXT: CLOSE  2: GOSUB  20000: IF  B*="CFB>"T 

10  IF  PEEK( 1022) =100  THEN  POKE  1022,1: LOAD 

HEN  GOSUB  15000 

<  193> 

"ZEICHEN  B" , 8 , 1 

<  161  > 

199 

IF  T*<>" ALLE "THEN  T*=“ >"+BA*+ "??????"+ 

11  IF  PEEK( 1022) =250  THEN  POKE  1022,240: LO 

T* 

<  164> 

AD" ZEICHEN  DIN" ,8,1 

<100> 

200 

IF  T*=" ALLE "THEN  GOSUB  30000 

<  193> 

12  IF  PEEK ( 1 022 ) = 1  OR  PEEK ( 1022) =240  THEN 

201 

IF  BA<QQ  THEN  T*=N* (BA) : BA=BA+1 : GOTO  2 

POKE  53272,8: POKE  56576, PEEK (56576) AND 

10 

<082> 

252: POKE  648,192 

<202> 

202 

PRINT"  C4D0WN>£ITTE  NUN  DIE  JJATENDISKET 

13  PRINT" CCLR>" 

<001> 

TE  MIT  DEM" 

<048> 

14  IF  PEEK ( 1022) =1  THEN  POKE  1022,2:LOAD"Z 

203 

PRINT"IEXT  EINLEGEN  UND  EINE  TASTE  DRU 

EICHEN  D" ,8, 1 

<  161  > 

ECKEN.  CDOWNV 

<  180> 

15  IF  PEEK (1022) =240  THEN  POKE  1022,210: LO 

204 

POKE  198,0: WAIT  198,1:GET  A*: IF  A*=" CF 

AD" ZEICHEN  DDIN",8,1 

<225> 

1 >"THEN  100 

<  170> 

16  IF  PEEK (1022) =2  THEN  POKE  1022 , 3: LOAD"P 

205 

GOTO  210 

<  157> 

ROFIP  VI. 0", 8,1 

<  198> 

206 

GOSUB  210: END 

<  124> 

17  IF  PEEK (1022) =210  THEN  POKE  1022, 200: LO 

210 

IF  VV=1  THEN  11000 

<099> 

AD" PROF IP  VI. 0", 8,1 

<  191  > 

211 

CLOSE  2: CLOSE  15: OPEN  15, FA, 15 

<244> 

18  IF  PEEK (1022) =200  THEN  POKE  922,2: POKE 

212 

OPEN  2,FA,2,T*+",S,R": INPUT#15,ER, A*: I 

923,1 

<065> 

F  ER< >0  THEN  PRINT  A*:POKE  198,0:WAIT 

20  C*="N" : K*="N“ : 5Y*="N" : S1*="N" : NU*="N"  :  G 

198,1: GOTO  100 

<  1 17> 

E=80: ZZ=60: YY=60 

<  122> 

220 

I NPUT #2 , AN : P=0 : GOSUB  36000 

<210> 

39  A6*="C70SPACE>" 

<014> 

225 

TA=(GE-ZZ)/3 

<048> 

40  A8*=A8*+"CSHIFT-SPACE>": IF  LEN(A8*><200 

230 

POKE  198,0: IF  ED=2  THEN  GOSUB  10000: GO 

THEN  40 

<075> 

TO  240 

<093> 

4 1  BV*=CHR* ( 27 ) + " B " +CHR* ( 3 ) +CHR* ( 27 ) + " S " +C 

231 

PRINT" CCLR, 2D0WN> SITTE  LEGEN  SIE  EIN  S 

HR* ( 1 ) 

<202> 

LATT  EIN  UND C7SPACE >DRUECKEN  SIE  EIN  I 

42  BV*=BV*+CHR* ( 27  >  +  "  A  " +CHR* ( 5 ) : D I M  V*(50> 

<037> 

ASTE“ 

<  144> 

45  PT*=CHR* (14)+" CRVSON , 2SP ACE  >  PROF I PR I NT 

232 

GOSUB  10000 

<212> 

(C)  '  1985  BY  flLIVER  fJENDT C3SP ACE > " 

<  155> 

233 

GET  A*:IF  A*=" "THEN  233 

<203> 

46  IF  PEEK  <930)00  THEN  GOSUB  40000:  GOTO  6 

234 

PRINT" CCLR> " ; PT* 

<  1 12> 

0 

<  177> 

235 

PRINT" CDOWN> ICH  ARBEITE  ..." 

<080> 

47  PRINT" CCLRJ"; PT: FA=B 

<054> 

240 

PRINT" CDOWN> ICH  DRUCKE  SEITE" ; SH+1 : PRI 

40  PRINT"  CCLR > "  ;  PT* :  PR I NT " NUN  DIE  AARFJJUIR 

NT" TEXT  : " ; T* 

<040> 

E.S.5.  2ATEND I SKETTE  C7SPACE  >E I NLEGEN  ,  "  ; 

<  1 16> 

245 

SH=SH+1 : IF  SH=2  THEN  GOSUB  600 

<096> 

49  PRINT"  UND  DEN  JJRUCKER  ANSCHALTEN.  " 

<  180> 

250 

RA= (GE— ZZ ) /3 

<065> 

50  N*=" " : POKE  917,39:P0KE  918,30:POKE  920, 

300 

V=0  :  IF  N7<N6  THEN  V=  (N6-N7)/3 

<  1 13> 

7: POKE  924,0 

<  188> 

310 

U=1 : FOR  WW=1  TO  YY: CO*=LEFT* (F* (WW) , 1 ) 

<  107> 

51  POKE  908,0: POKE  921 , 0: PRINT" CHOME , 6D0WN 

314 

IF  CO*= " * " THEN  G0TO  500 

<  1 18> 

>  KÄME  <11 SPACE  > " : SYS  50 1 76 , N* , N* : PR I NT 

<201  > 

31^  IF  C0*=" . "THEN  A*=DA*:G0SUB  2001: GOTO 

52  IF  VAL(N*)>0  THEN  Y=VAL (N*)  :  GOTO  700 

<052  > 

■i40 

<046> 

53  GOSUB  40100: IF  Y=0  THEN  PR INT "BENUTZER 

316 

IF  C0*<  >"  =  " AND  C0*<  >"  +  ” AND  CO*<>"«-"THE 

NICHT  REGISTRIERT": GOTO  50 

<049> 

N  A*=F*(WW) : GOSUB  2000: GOTO  340 

<075> 

54  GOSUB  50 145: GOSUB  50155: CLOSE  2:CL0SE  1 

320 

IF  V>1  THEN  A*=n" : GOSUB  2000: V=V-1 : GOT 

5 

<092> 

0  340 

<100> 

55  IF  V*  (8)  ="  — "OR  V*  (8)="  "THEN  PRINT"  JLE INE 

321 

IF  U>N7  THEN  A*="": GOSUB  2000: U=U+1 : GO 

ZUGR I FFSBERECHT I GUNG " : GOTO  50 

<246> 

TO  340 

<011> 

56  p*=" " : POKE  917,39:POKE  918,30:POKE  920, 

330 

IF  C0*= " = " THEN  A*=A*(U) :U=U+1: GOSUB  20 

7: POKE  924,0 

<202> 

00: GOTO  340 

<  102> 

57  POKE  908,0: POKE  921 , 0: PRINT" CHOME , 6DOWN 

331 

IF  CO*= " + " THEN  GOSUB  400: U=U+1 : GOSUB  2 

,  WH  I TE  > JLENNWORT  CBLACK  >  “  :  SYS  50 1 76  ,  P*  ,  P* 

000: GOTO  340 

<051  > 

: PRINT" CWHITEJ" 

<216> 

332 

IF  C0*=  " ♦*“ THEN  GOSUB  4 1 0:  U=U+ 1 :  GOSUB  2 

58  IF  PEEK (913) =1  THEN  50 

<244> 

000: GOTO  340 

<  136> 

59  BA*=V*(8):IF  PA*OP*THEN  PR  INT"  KENNWORT 

339 

IF  M*="CF8>"THEN  N8=999: WW=999 

<220> 

FALSCH": GOTO  56 

<  149> 

340 

NEXT  WW 

<  143> 

60  I NPUT " C3D0WN , WH I TE  JSRUCKERADRESSE  C2SPAC 

341 

PRINT" C3D0WN>1 C3D0WN>": IF  NB< >999  THEN 

E  >4  C3LEFT  > " ; DA 

<  1 83  > 

GS- 1: GOTO  230 

<201  > 

70  D*=" " : POKE  917,39:P0KE  918,30:POKE  920, 

342 

IF  N8=999  THEN  FOR  MN=1  TO  999: GET  A*: 

7 : POKE  924 , 0 : PR I NT " CCLR  > " ; PT* 

<  1 16> 

IF  A*=" CF6>"THEN  N8=0 

<  124> 

71  PRINT" CDOWNIüALLO  ";V*(1);"," 

<222> 

343 

NEXT 

<099> 

72  PRINT"BITTE  GIB  DAS  SATUM  EIN." 

<232> 

349 

PRINT" C3D0WN>2C3D0WN>": IF  N8=999  AND  B 

73  POKE  908,0: POKE  921 ,0: PRINT" CDOWN5SATUM 

A<QQ  THEN  CLOSE  2: CLOSE  15: CLOSE  1 : N8= 

<062> 

0: GOTO  201 

<1B4> 

74  SYS  50176, D*,D* 

<235> 

350 

IF  VV=1  THEN  210 

<110> 

90  DIM  F* (270) ,A* (250) :GE=80: GOSUB  40010 

<012> 

360 

PRINT" CCLRIFERTIG" : POKE  198,0: GOTO  600 

99  LF=0: FA*=" " 

<046> 

<  192> 

100  CV=0:N8=0:YX=0:ED=0:BA=1: GOSUB  37000 

<084> 

■6 

i 

S 

A*=LEFT* ( A* ( U ) + A8* , Z  Z ) +R I GHT* ( F* ( WW ) , L 

142  REM 

<204> 

EN (F* (WW) ) — 1 ) : RETURN 

<  1 14> 

143  PRINT" CCLR, 2D0WN> SITTE  NUN  DIE  flATENDI 

410 

A*=RIGHT* (F* (WW) ,LEN (F* (WW) ) -1 ) +A* (U) : 

SKETTE  MIT  DEM" 

<  151  > 

RETURN 

<088> 

144  PRINT" £0RM AT  EINLEGEN  UND  EINE  JASTE  D 

450 

PRINT" C3D0WN, SPACE >***  PAUSE  ***" 

<  187> 

RUECKEN. " 

<255> 

455 

GET  M*:IF  M*< >" CF3> "THEN  455 

<  122> 

145  POKE  198,0: WAIT  198,1:GET  B*: IF  B*="CF 

456 

IF  M*<  > " CF 1 > " THEN  END 

<002> 

1 >"THEN  GOSUB  37131: GOTO  143 

<061  > 

460 

GOTO  2010 

<  186> 

150  CLOSE  15: OPEN  15, FA, 15, "I" 

<241  > 

500 

REM  **  SEITENNR.  *» 

<152> 

160  OPEN  2,FA,2,F0*+" ,S,R" : I NPUT# 15, ER, A*: 

501 

A*=LEFT* (A6* , INT (GE/2.5) -TA) +"-"+STR* ( 

IF  ER<  >0  THEN  PRINT  A*:POKE  198,0: WAIT 

SH ) + "  -" 

<093> 

198,1: GOTO  99 

<019> 

502 

IF  TD*=" J"THEN  A*=A*+T* 

<095> 

170  INPUT42, AN: INPUT#2,C*,K*,SY*,S1*,NU*,G 

510 

GOSUB  2001: GOTO  340 

<  121  > 

E,  ZZ 

<  131  > 

600 

FOR  T=1  TO  20: F* (T) =F* (T+YY) : NEXT : GOSU 

180  INPUT42, A*: YY=VAL (A*) 

<177> 

B  20000: RETURN 

<  1 13> 

Der  Druckertreiber  zu  »Hypra-Text«.  Beachten  Sie  bitte 

700 

IF  Y=999  THEN  BA*="6A" : GOTO  72 

<189> 

die  Eingabehinweise  auf  Seite  54. 

710 

IF  Y=900  THEN  V* (9) ="0F" : PA*=" SABRINA" 

74 
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GOTO  56 

<172> 

3035 

Ci=Ci+"  "+BBi 

<218> 

720  IF  Y=901  THEN  Vi  (8)  =,,0L,‘ :  PAi="EDV"  :  GOT 

3040 

IF  LEN (Ci> <ZZ  THEN  Ai=Ci: E7=0: IF  ET=0 

□  56 

<036> 

THEN  3010 

<  145> 

725  IF  Y=902  THEN  Vi ( B ) = " RH " : P  Ai= "NIE": BOT 

3045 

IF  ET= 1  AND  E7=0  THEN  BBi=" " 

<241  > 

C 

56 

<067> 

3046 

IF  RIGHTi (Ai, 1)="  "THEN  Ai=LEFTi ( Ai , L 

730  IF  Y=903  THEN  Vi (8) ="SZ" : PAi="FRAU" : GO 

EN (Ai) — 1 > : GOTO  3046 

<247> 

TO  56 

<210> 

3047 

IF  LEFTi (Ai, 1)="  "THEN  Ai=RIGHTi ( Ai , L 

799  GOTO  54 

<055> 

EN (Ai) -1): GOTO  3047 

<250> 

1999 

END 

<223> 

3049 

IF  MI<  >0  THEN  3100 

<  122> 

2000 

GOSUB  30400: GOSUB  2500 

<041  > 

3050 

IF  RIGHTi (Ai, 1)="F" THEN  RETURN 

<210> 

2001 

IF  MO”  "AND  AiO"F"THEN  Ai=LEFTi(A6i 

3051 

POKE  918, ZZ—ZZ/4: POKE  917,ZZ:SYS  5018 

,TA)+Ai 

<  197> 

5, Ai, Ai 

<086> 

2005 

REM 

<033> 

3060 

RETURN 

<06B> 

2006 

XY=1 

<096> 

3100 

IF  MI=1  THEN  3200 

<  173> 

2007 

GET  Mi: IF  Mi= " CF 1 J " THEN  450 

<016> 

3110 

IF  MI =2  THEN  3300 

<249> 

2010 

Ai=Ai+CHRi ( 13) : FOR  Z=1  TO  LEN (Ai) 

<  164> 

3120 

IF  MI=3  TKEN  3400 

<069> 

2020 

Bi=MIDi(Ai,Z,l) : GOSUB  4450 

<013> 

3130 

REM  IFMI=4THEN3450 

<031  > 

2030 

AS=ASC (Bi) 

<063> 

3200 

IF  Ai=" “OR  Ai="F"THEN  Ai="" SPRINT  Ai: 

2040 

IF  AS >191  AND  AS<234  THEN  AS=AS-96 

<  108> 

RETURN 

<241  > 

2050 

IF  AS >223  AND  AS<255  THEN  AS=AS-64 

<  181  > 

3201 

SYS  50179, Ai: X8= (ZZ- (LEN (Ai) -PEEK (919 

2060 

IF  AS=255  THEN  AS=126 

<032> 

) ) ) /2. 1 

<  122> 

2070 

IF  XY=2  THEN  Z=Z+1 

<240> 

3210 

IF  XB>0  THEN  Ai=LEFTi(A6i,X8)+Ai:RETU 

2080 

IF  XY=3  THEN  XY=2 

<  1 18> 

RN 

<  151  > 

2090 

IF  AS< 128  THEN  Bi=CHRi (PEEK ( 1026+ AS) ) 

3211 

RETURN 

<221  > 

: GOTO  2200 

<  137> 

3300 

IF  Ai=" "DR  Ai="F"THEN  Ai=" RETURN 

<032> 

2100 

AS=AS— 1 60 : Bi= " " 

<148> 

3301 

SYS  50179, Ai: X8= (ZZ— (LEN (Ai) —PEEK (919 

2110 

ZI— 0: IF  PEEK ( 1202+8* AS ><>0  AND  PEEK ( 1 

)  )  ) 

<  143> 

20 1 +B*AS ) <  >27  THEN  Bi=CHRi (PEEK ( 1024) 

3310 

IF  X8>0  THEN  Ai=LEFTi(A6i,X8)+Ai:RETU 

> : Zl=l 

<095> 

RN 

<251  > 

2120 

IF  Z1=0  THEN  GOSUB  2300 

<225> 

-3311 

RETURN 

<065> 

2130 

IF  Zl=l  THEN  GOSUB  2400 

<047> 

3400 

IF  Ai=" "OR  Ai="F"THEN  Ai=" RETURN 

<  134> 

2140 

IF  Zl=l  AND  BR=0  THEN  Bi=Bi+CHRi (PEEK 

3401 

RETURN 

<  157> 

(1025) ) 

<  126> 

3500 

POKE  908,0 

<026> 

2150 

IF  Zl  =  l  AND  BR=1  THEN  Bi=Bi+CHRi (PEEK 

3510 

POKE  915,2: POKE  917,136 

<  189> 

(1026) ) 

<148> 

3520 

SYS  50 182, Ai: IF  Ai=" >"THEN  Ai="" 

<  120> 

2200 

PRINT#1 , Bi; 

<067> 

3521 

IF  RIGHTi (Ai, 1)="  "THEN  Ai=LEFTi ( Ai , L 

2210 

NEXT : POKE  53265 , 27: RETURN 

<207> 

EN ( Ai ) — 1 ) : GOTO  3521 

<  176> 

2300 

FOR  DD=1  TO  8 : MN=PEEK ( AS*8+DD+ 1 200 ) 

<  1 18> 

3522 

IF  LEFTi (Ai, 1)=”  "THEN  Ai=RIGHTi ( Ai ,L 

2310 

IF  MN=0  THEN  NEXT  DD: RETURN 

<  157> 

EN (Ai) —1 ) : GOTO  3522 

<  179> 

2320 

GOSUB  4400: Bi=Bi+Ci: NEXT  DD: RETURN 

<048> 

3530 

RETURN 

<030> 

2400 

FOR  DD=1  TO  B:MN=PEEK(AS*8+DD+1200) 

<220> 

360ü  EM  **  ! !  JABULATOR  ** 

<  199> 

2410 

IF  MN=0  THEN  NEXT  DD: RETURN 

<001  > 

3602 

BBi=R I GHTi ( BBi , LEN ( BBi ) -2  > : GH= VAL ( LEF 

2420 

GOSUB  4400: Bi=Bi+Ci: IF  BR=1  THEN  Bi=B 

Ti (BBi, 2) ) 

<  159> 

i+Ci 

<  195> 

3605 

IF  GH>ZZ  THEN  BBi= " <SH I FT-SP ACE > “ : GOT 

2430 

NEXT  DD: RETURN 

<234> 

0  3040 

<246> 

2500 

IF  LEFTi(Ai,l) <>"#" THEN  RETURN 

<096> 

3610 

GH=GH-LEN ( Ci ) : IF  GH<0  THEN  GH=0 

<027> 

2501 

IF  Ai< " #00 " THEN  RETURN 

<029> 

3620 

Ci=Ci+LEFTi ( A8i , GH ) + " - " : GOTO  3040 

<036> 

2510 

Ai=RIGHTi (Ai, LEN (Ai) — 1 ) : T A=RA+V AL ( LEF 

3650 

REM  **  DEZLEN  EINGABE  ** 

<097> 

Ti(Ai,2) ) 

<078> 

3655 

BBi=R I GHTi ( BBi , LEN ( BBi ) -7 ) : D V= V AL ( LEF 

2511 

Ai=R I GHTi ( Ai , LEN ( Ai ) -2 ) : RETURN 

<  120> 

Ti (BBi, 1) ) 

<065> 

3000 

IF  E7=l  THEN  E7=0: ET=0: Ai=BBi: BBi=" " : 

3660 

BBi=R I GHTi ( BBi , LEN ( BBi ) - 1 ) : DN=V AL ( LEF 

GOTO  3046 

<083> 

Ti (BBi, 1) ) 

<018> 

3005 

Ai=BBi:ET=0: IF  ZZ=0  THEN  P=P+1:G0T0  3 

3670 

BBi= " " : GOTO  3040 

<  161  > 

500 

<090> 

3680 

REM  **  DEZIMAL  BILDUNG  ** 

<12B> 

3010 

IF  NF=1  THEN  3900 

<055> 

3681 

QW=0 : RFi=R I GHTi ( BBi , 1 ) : I F  VAL ( RFi ) =0 

3011 

POKE  915,2: POKE  917,200:POKE  908,255: 

AND  RF i<  > " 0 " THEN  QW=1 

<076> 

SYS  50182, BBi: IF(ST  AND  64)=64  THEN  B 

3682 

IF  QW=1  THEN  BBi=LEFTi(BBi,LEN(BBi)-l 

Bi="F" 

<254> 

) 

<21 1  > 

3012 

IF  PEEK (913) =13  THEN  P=P+1 

<251  > 

3683 

BBi=R I GHTi ( BBi , LEN ( BBi ) - 1 ) : GH= I NT ( VAL 

3013 

IF  BBi=" >" THEN  BBi= " F"  : ET= 1 

<015> 

(BBi) ) : IF  GH<0  THEN  GH=GH+1 

<029> 

3014 

IF  BBi=" >  "THEN  BBi=" F" : ET=1 

<016> 

3684 

DEi=STRi ( GH ) : DEi=R I GHTi ( DEi , LEN ( DEi ) - 

3015 

IF  RI GHTi (BBi, 1 ) ="  "THEN  BBi=LEFTi(BB 

1 ) : GZ=GH 

<  194> 

i,LEN (BBi) -1 ): GOTO  3014 

<132> 

3685 

DEi=R I GHTi ( " <9SH I FT-SP ACE  > " +DEi , DV- 1 ) 

<220> 

3016 

IF  LEFTi  (BBi,  1  )  =  '*  "THEN  BBi— RI  GHTi  (BB 

3686 

IF  GZ<0  THEN  DEi="-"+DEi 

<217> 

i, LEN (BBi) -1 ): GOTO  3015 

<005> 

3687 

IF  GZ>=0  THEN  DEi=" <SHI FT-SP ACE >"+DEi 

<255> 

3017 

IF  LEFTi (BBi, 1>="@" THEN  GOSUB  30300 

<096> 

3688 

GH=ABS (VAL (BBi) -GH) 

<203> 

3018 

IF  LEFTi ( BBi, 8 >=" NOFORMAT "THEN  NF=1:G 

3690 

IF  DN=0  THEN  3698 

<051  > 

OTO  3010 

<083> 

3691 

DEi=DEi+". " 

<  161  > 

3019 

IF  LEFTi (BBi, 8) ="MITTEZEN"THEN  MI=ltG 

3692 

GH=GH* 1 0  tDN : DNi=STRi ( GH ) : DNt=R I GHTi ( D 

OTO  3010 

<026> 

Ni,LEN(DNi)“l) 

<248> 

3020 

IF  LEFT i ( BBi , 8 >  = " FORMNORM " THEN  MI=0:G 

3693 

DEi=DEi+LEFTi ( DNi+ " 000000000 " ,DN) 

<023> 

OTO  3010 

<237> 

3698 

BBi=DEi: IF  QW=1  THEN  BBi=BBi+RFi 

<081  > 

3021 

IF  LEFTi ( BBi, 8 )="RECHTSFO" THEN  MI=2:G 

3699 

RETURN 

<201  > 

OTO  3010 

<069> 

3900 

POKE  915,2: POKE  917, ZZ: POKE  908,1: SYS 

3022 

IF  LEFT i ( BBi , 8 ) = " KE I NFORM " THEN  MI=3:G 

50182, BBi: IF(ST  AND  64)=64  THEN  BBi= 

OTO  3010 

<134> 

•F* 

<072> 

3023 

IF  LEFTi (BBi,7) ="DEZLEN="THEN  GOTO  36 

3910 

IF  BBi= " FORMATON " THEN  NF=0: Ai=" " : BBi= 

50 

<041  > 

" " : GOTO  3010 

<067> 

3024 

IF  LEFTi  (BBi,  1  )="«-" THEN  GOSUB  36S0 

<  132> 

3912 

IF  BBi=" >"THEN  BBi=" " 

<  196> 

3028 

IF  LEFTi (BBi, 2) ="!! "THEN  3600 

<  155> 

3920 

Ai=BBi: RETURN 

<000> 

3029 

IF  R I GHT i ( BBi ,1)=MP" OR  LEFTi (BBi , 1 ) =" 

3999 

RETURN 

<247> 

S"THEN  ET=lsE7=l 

<250> 

4400 

IF  RV=0  THEN  4420 

<  145> 

3030 

Ci=Ai: IF  RIGHTi (Ci, 1 ) ="— "THEN  Ci=LEFT 

i ( Ci , LEN ( Ci ) - 1 ) : Ci=Ci+BBi : GOTO  3040 

<  166> 

Der  Druckertreiber  zu  »Hypra-Text«  (Fortsetzung) 
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6054 


6055 

6060 


4401  IF  MN=0  THEN  C*=" " : RETURN 

4402  IF  MNC12B  THEN  C*=CHR* (MN) : RETURN 
4410  MN=MN- 1 20 : MN=255-MN 

4420  C*=CHR* ( MN ) : RETURN 

4450  IF  B*="W"THEN  BR=1:XY=3 

4451  IF  B*="H"THEN  BR=0: XY=1 

4452  IF  S1*="S,,AND(B^=“WM0R  B*="^,,aR  B*="T 
" ) THEN  PRINT#1,CHR*(27)+"B"+CHR*(5)  ; 

4453  IF  S 1 *= " S " AND ( B*= " H" OR  B*="H"OR  B*="TT 
" ) THEN  PRINT#1,CHR*(27)+"B"+CHR*(4)  ; 

4460  RETURN 

5000  PR I NT " {CLR , RVSON , 2SPACE }PROF I PR I NT  (C 
)  '1984  BY  OLIVER  FENDT {2SPACE}" 

5010  I NPUT " C2D0WN  JTASTATUR {SPACE , 2R I GHT >D I 
N{5LEFT>";A* 

5020  POKE  1022,250: IF  A*< >" DIN" THEN  POKE  1 
022,100 
5030  RUN 

6000  PRINT" <CLR>"; PT» 

6010  PRINT" C2DOWN , 2SP ACE > -0- {2SPACE > £NDE " 

6011  PRINT" (DOWN , 2SP ACE > - 1 - {2SP ACE > £1 NEN  I 
EXT  DRUCKEN" 

6012  PRINT " {DOWN , 2SPACE >-2- C2SPACE >£ROF I TE 
XT  LADEN" 

6050  PRINT" <2D0WN>fiITTE  WAEHLEN  SIE:" 

6052  POKE  198 ,0: WA IT  198,1:GET  A* 

IF  A*=" <F1 >"OR  A*="0"THEN  POKE  2,0: PO 
KE  930,0: END 
IF  VAL(A*)>2  THEN  6052 
IF  A*="1"THEN  100 
6070  POKE  2,0: PRINT" {CLR,3D0WN>L0AD"+CHR* ( 
34 ) + " HYPRATEXT" +CHR* ( 34  >  +  "  .  8 11 
6080  PRINT" €4D0WN>RUNCH0ME>": POKE  198,2: PO 
KE  631, 13: POKE  632, 13: END 
10000  N7=0: L=0 
10010  IF  N7>=N6  THEN  RETURN 
10020  GOSUB  3000: N7=N7+1 : IF  P>AN  THEN  A*(N 
7) =A*: N8=999: RETURN 

10030  IF  LEFT*(A*,1)=1"B"THEN  GOSUB  10100:1 
F  RR=1  THEN  RETURN 
10035  IF  LEN  <  A*) >L  THEN  L=LEN(A*) 

10040  A*(N7)=A*:IF  LEFT$ ( A*, 1 ) ="F"THEN  100 
60 

10050  GOTO  10010 

10060  IF  5>N6-N7  THEN  RETURN 

10065  GOTO  10010 

10100  REM  **  SE I TENVORSCHUB  ??  ** 

10101  IF  A*="S"THEN  RR=1 : GOTO  10120 

10102  RR=0: A*=RIGHT*(A*,LEN(A*)-1 ) 

10110  GQ=VAL  ( LEFT *  ( A*  ,  2 )  )  :  I F  GON6-N7  THEN 
RR=1 

10120  A*= 11 11 :  A*  (  N7)  = 11 "  : RETURN 
11000  IF  YX >=CV  THEN  6000 

11005  GOSUB  50145: SH=0: PRINT" {CLR>i£ARDEF CD 
OWN>" 

11010  YX=YX+1:Y=A(YX> : GOSUB  50155: CLOSE  2: 

CLOSE  15: GOTO  11030 
11020  GOTO  6000 

11030  FOR  T=1  TO  20: PRINT  V*(T):NEXT 
11035  GOTO  211 

12000  IF  LEFT*(A*,l)="t"THEN  A*=R I GHT * ( A* , 
LEN (A*) -1 ): GOTO  13000 

12001  IF  LEFT*  ( A* ,  1 )  “"«-"THEN  A*=RIGHT*  ( A*  , 
LEN <A*) -1 > s GOTO  13010 

12010  F* (FZ) =A*:FZ=FZ+1: RETURN 
13000  F* (FZ— 1 ) =F* (FZ— 1 ) +RIGHT* ( AB*, ZZ-LEN ( 
F* (FZ— 1 ) ) -LEN ( A*) ) +A*: RETURN 
13010  F* (FZ )=RIGHT*(A8*, ZZ-LEN (A*) )+A*:FZ= 
FZ+1: RETURN 

15000  REM  **  ERSTELLEN  FORMBLATT  ** 

15010  GOSUB  35000 

{CLR  > 11 : FOR  T=1  TO  YY+20 
{HOME , 7D0WN , 40SPACE > " ; 
{40SPACE>" ; 

<40SPACE> " ; 

{40SPACE>" ; 

{H0ME,7D0WN>";F*(T) ; "g  " 

15030  PRINT" {HOME > " ; PT * : PR I NT " EORMBL ATT  ER 
STELLEN" 

15035  IF  T<1  THEN  T=YY 

15036  IF  T>YY  THEN  PRINT" {RVSON > SEITE  2{RV 
OFF , SPACE  > ZEILE" ; T- Y Y 

15037  IF  T>YY+20  THEN  PRINT" <23SP ACE >":  T=1 
15050  PRINT" {HOME, 12DOWN>=  =  JEXT  DRUCKEN 


15020  PRINT1 

15021  PRINT1 

15022  PRINT1 

15023  PRINT1 

15024  PRINT1 

15025  PRINT1 


<  1 18> 
<047> 
<130> 
<099> 
<218> 
<049> 

<  1 15> 

<242> 
<200> 

<  1 18> 
<0B7> 

<  165> 
<246> 
<036  > 
<096> 

<  1 15> 

<047> 

<040> 

<  134> 

<100> 
<017> 
<131  > 

<224> 

<247> 
<071  > 
<067> 

<019> 

<  159> 
<032>Olft 

<018> 
<172> 

<  133> 

<  187> 

<  132> 
<073> 
<032> 

<  102> 
<208> 
<083> 

<085> 

<029> 
<078> 

<  146> 
<097> 

<009> 

<042> 
<051  > 

<  172> 

<  192> 
<049> 
<098> 

<  183> 
<063> 
<034> 
<035> 
<036> 

<  1 13> 

<041  > 
<060> 

<  193> 
<032> 


15051 

15052 

15054 

15055 

15056 

15057 

15058 

15059 

15060 

15061 

15062 

15070 

15071 
15080 
15090 
15095 

15100 

15110 

15120 

15121 

15122 

15123 

15130 

15131 

15134 

15135 
1513#- 

15137 

15138 

15139 

15140 

15141 

15142 

15143 

15144 


15145 


15146 


15147 

15148 
15150 
15155 
15160 

15600 

15601 

15610 

15611 

15612 

15613 

15630 

15650 

15660 

15700 

15705 


/  t  fiUSFUELLEN" 

PRINT".  =  2ATUM  HIER  DRUCKEN" 

PRINT11*  =  SEITENZAHL  HIER  DRUCKEN" 
PRINT"  (Fl)  ALLES  fi£<3SPACE>  (F3)  JEJ1D 
SRUCK“ 

PRINT" (F5)  ZEILE  HOCH  (F7)  SPEICHERN 


PRINT 

PRINT 

ES" 

PRINT 

PRINT 


(F2)  FORMBLATT  LADEN" 

(F4)  ÜI TTEZENTR I ERUNG  DES  IEXT 


(F6)  AECHSTFORMATI  ERUNG 11 
(F8)  S-OCKSATZFORMATI ERUNG" 
PRINT"  ( -C.R-T.L.)  +  ( .L.)  FORMBLATT  LOESCHEN" 
PR  I  NT 11  (  CRT  U  +  ( £)  £^r AMETER  £1 NST 

ELLEN" 

PRINT" {RVSON > ALLES  WAS  ANDERS  IST,  W 
IRD  SO  GEDRUCKT,  WIE  ES  DASTEHT.11; 

PR I  NT 11  {HOME  ,  RVOFF  ,  4DOWN >£OS .  X  .  C5SPAC 
E  ,  4LEFT  > 11 ;  LEN  ( F* ( T )  ) 

PR  I  NT 11  PjOS .  Y .  {5SPACE ,  4LEFT  > 11 ;  T ;  11  11 
IF  PEEK(  198X1  THEN  15080 
GET  A* 

I F  A*=CHR* ( 20 ) AND  LEN ( F* ( T ) ) =0  THEN 
15080 

IF  A*=CHR* (20) THEN  F* (T) =LEFT* (F* (T> 
, LEN (F* (T) ) -1 ) : GOTO  15155 
IF  A*= ” {F 1 > " THEN  LF=1 : FA*="OK" : FO*=" 
>"+BA*+"??????aK" : GOSUB  20000: RETURN 
IF  A$="{F3>"THEN  15600 
IF  A*="  t 11  THEN  15900 

IF  A*=" {WHITE >" THEN  GOSUB  35000: GOTO 
15021 

IF  A*="  {CTRL— C> 11  THEN  FOR  U=1  TO  20:  F 
* ( YY+U) =F* (U) : NEXT : GOTO  15021 
IF  A*="{F5>"THEN  T=T-2:NEXT 
IF  A*="  {CTRL— L> 11  THEN  FOR  U=1  TO  YY :  F 
*  (U)  ="  11 :  NEXT:  T=l:  GOTO  15021 
IF  A*="  {F2VTHEN  T=999: NEXT: GOTO  158 
00 

IF  A*= 11  {F7 > 11  THEN  15700 
IF  A*="  {F4VTHEN  F* (T) =LEFT* ( A8* , (ZZ 
-LEN (F* (T) ) >/2>+F*(T) : GOTO  15021 
IF  A*="{F6}"THEN  F* (T> =LEFT* (AB*, ZZ- 
LEN  (F*(T)  ) )+F*(T) : GOTO  15021 
IF  A*= 11  {F8 > 11  THEN  POKE  918,3:  POKE  917 
, ZZ; SYS  50185, F*(T)  ,F*(T) -.GOTO  15021 
IF  A*=" {CLR}" THEN  F* (T) =" " : GOTO  1502 
1 

IF  A*=CHR* (13) THEN  NEXT: GOTO  15020 
I F  A*=  "  {DO WN  > 11  OR  A*= 11  {UP  > 11  OR  A*= 11  {R I 
GHT  VOR  A*= 11  {LEFT} 11  THEN  15030 
IF  A*= 11  {BLACK > 11  OR  A*="  {WHITE  VOR  A*= 
11  {RED>"OR  A*= 11  {CYAN} 11  THEN  15030 
IF  A*= 11  {PURPLE > 11  OR  A*="  {GREEN > 11  OR  A* 
= 11  {BLUE  > 11  OR  A*= 11  {YELLOW  > 11  THEN  1 5030 
IF  A*="  {ORANGE! 11  OR  A*="  {BROWN > 11  OR  A* 
=  "{LIG.RED>"OR  A*="{GREY  1> 11  THEN  150 
30 

IF  A*="  {GREY  2>"0R  A*= 11  {L I G .  GREEN }  "  0 
R  A*= 11  {L I G .  BLUE  > 11  OR  A*=" {GREY  3  > 11  THE 
N  15030 

IF  A*="  {RVSON > 11  OR  A*="  {RVOFF > 11  OR  A*= 
" <CLR> "OR  A*=" <HOME>"OR  ASC(A*)=148 
THEN  15030 

IF  A*= 11  {SH  I  FT— SP  ACE  > 11  THEN  15150 
IF  LEN (F* (T) ) =ZZ  THEN  15160 
F*(T)=F*(T)+A* 

PRINT"  {HOME, 7D0WN>";F*(T)  ;  "g  11 

GOTO  15030 

REM  **  DRUCKEN  ** 

PR  I  NT 11  {CLR  > 11 ; PT* : PR I  NT 11  {3D0WN  >  21 TTE 

HARTEN,  ICH  DRUCKE.  11 

GOSUB  36000: FOR  U=1  TO  YY 

IF  F* (U) =" . "THEN  A*=DA*: GOTO  15650 

IF  F*(U)="*" THEN  A*=" {8SPACE>— 1— {10S 

PACE>" : GOTO  15650 

IF  F*  (U)  ="  =  " THEN  A*="— JEST— 11 :  GOTO  15 
650 

A*=F* (U) 

GOSUB  2001  • 

NEXT  U:A*="":  CLOSE  l-.GOTO  15021 
REM  **  FORM  SPEICHERN  ** 

PR I  NT 11  {CLR  > 11 ;  PT* :  PR  I  NT 11  {2D0WN  >SPE  I  CH 
ERN” 


<  144> 

<  127> 
<055> 

<048> 

<093> 

<027> 

<202) 

<059> 

<  197> 

<  107> 

<090> 

<024> 

<  125> 
<214> 
<084> 
<056> 

<060> 

<  104> 

<000> 

<  1 16> 

<  145> 

<110> 

<  161  > 
<231  > 

<046> 

<079> 

<  148> 

<  137> 
<000> 

<236> 

<  189> 
<046> 

<232> 

<  134> 
<035> 

<243> 

<066> 


<  149> 
<236> 

<  149> 

<  166> 
<245> 

<  154> 

<  166> 

<  109> 

<  158> 

<  16B> 

<  185> 

<231  > 
<101> 

<  184> 

<020> 

<  1B4> 

<  160> 
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15706 

15710 

15720 

15721 

15722 

15723 

15730 

15740 

15750 

15800 

15801 
15805 

15810 

15815 

15816 

15820 

15821 
15830 
15840 

15850 

15900 

15910 

15920 

15925 

15930 

20000 

20010 

20011 

20012 

20020 

30000 

30001 

30002 

30003 
30005 
30010 

30020 

30021 

30022 

30023 
30027 

30030 

30300 

30301 
30310 

30320 

30330 

30340 

30350 

30400 

30401 
30410 
30420 

30430 

30440 

30450 

34000 

34010 

35000 

35100 


INPUT" {3D0WN>MAME";N»  <095> 

CLOSE  2:  OPEN  2,8,2,  "@:  >"+BA»+" 000000 
"•Hv|»+%S,W"  <095> 

PRINT#2,STR»(YY+33) ; CHR» (13) ;  <010> 

PR I NT#2 , C» : PR I NT#2 ,K»: PRI NT#2 , SY» : PR 
INT#2,S1»:PRINT#2,NU»  <0B8> 

PR I NT #2 , STR» ( GE ) ; CHR» (13);  <226> 

PRINT#2,STR» (ZZ) ; CHR» ( 13) ;  <130> 

PRINT#2,STR»(YY> ;CHR»C13> j  <007> 

FÜR  U=1  TO  YY+20: PRINT#2,F» (U) : NEXT  <108> 
FOR  U=1  TO  7:PRINT#2, "  " : NEXT: CLOSE 
2: GOTO  15021  <0B9> 

RR I NT " CCLR , 2D0WN  >BI TTE  NUN  DIE  BATEN 
DISKETTE  MIT  DEM"  <05B> 

PR I NT " FORMAT  EINLEGEN  UND  DEN  HAMEN 
ANGEBEN. “  <053> 

I NPUT " {2D0WN  >MAME " ; A» : A»= " > " +BA»+ “ ?? 
????"+A»  <070 > 

CLOSE  15: OPEN  15, FA, 15, "I"  <151> 

CLOSE  2: OPEN  2, FA, 2, A»+" ,S,R" : INPUT#. 
15,ER,A»:IF  ER<  >0  THEN  PRINT  A»  <178> 

IF  ER< >0  THEN  POKE  198,0: WAIT  198,1: 

GET  A» : PR I NT " <CLR > " : GOTO  15020  <01 1> 

INPUT#2 , AN  <102> 

I NPUT #2 , C» , K» , SY» ,  S 1 » , NU» , GE , Z  Z  <215> 

I NPUT #2 , A» : YY= VAL ( A» )  <077> 

FZ=1 : FOR  T=1  TO  YY+20:GOSUB  3500: GOS 
UB  12000  <063> 

NEXT: CLOSE  2:GOSUB  20000: PRINT" <CLR> 

" : GOTO  15020  <144> 

PRINT" CCLR > " ; PT»  '  < 030 > 

PRINT" {DOWN >FDRMBL ATT  AUSFUELLEN"  <024> 

INPUT" <DOWN> XON  ZEILE" ;V  <052> 

INPUT" {DOWN>BIS  ZEILE" ;B  <174> 

FOR  U=V  TO  B: F» (U) ="=" : NEXT : PRINT" <C 
LR  > " ; PT » : T =B : GOTO  15021  <107> 

N6=0: FOR  T=1  TO  YY  <04B> 

IF  LEFT»(F»(T) ,1)="="THEN  N6=N6+1  <240> 

IF  LEFT» (F»(T> ,1) ="+"THEN  N6=N6+1  <232> 

IF  LEFT»(F»(T)  ,1)="«-"THEN  N6=N6+1  <003> 

NEXT: RETURN  <147> 

IF  DNOl  THEN  DIM  N»  (  144)  :  FF=1 :  DN=1  <005> 
PRINT” {2D0WNJ BI E  BISKETTE,  DIE  GEDRU 
CKT  WERDEN  SOLL,"  '  <222> 

PR INT "EINLEGEN  UND  EINE  IASTE  DRUECK 
EN C3D0WN>"  <205> 

POKE  198,0: WAIT  198,1: GET  A»  <209> 

CLOSE  2: OPEN  2, FA, 2, " >?7??????DRUCK "  <169> 
I NPUT #2 , FF : QQ= 1  <069> 

FOR  T=1  TO  FF: INPUT#2 , N» (QQ) : IF  N»(Q 
Q)  ="  >"OR  N»  ( QQ )  =  THEN  30030  <093> 

PR INT "SOLL  " ; N» (QQ) ; "  GEDRUCKT  WERDE 
N"  <150> 

POKE  198,0: WAIT  19B,1:GET  A»: IF  A»=" 

N"THEN  PRINT" NEJ-K"  :  GOTO  30030  <096> 

IF  A»="F"THEN  PR I NT " :  GOTO  3000 
0  < 18B> 

N» (QD) =" >“+BA»+ "?????? "+N» (QQ) : QQ=QQ 
+1  <061 > 

NEXT: CLOSE  2 : RETURN  < 056 > 

IF  W=0  THEN  RETURN  <080> 

FOR  B=1  TO  LEN (BB») —2  <037> 

IF  MID»  <BB» ,B,1)<>" ©“THEN  NEXT : RETUR 
N  <090> 

X=VAL(MID»(BB»,B+1,2)):IF  X>50  THEN 
X=0  <069> 

IF  X=0  THEN  NEXT: RETURN  <008> 

BB»=LEFT»  <  BB» , B- 1 ) + V»  <  X ) +R I GHT» ( BB» , 

LEN < BB» ) -B-2 ): GOTO  30300  <0B6> 

NEXT: RETURN  <061 > 

REM  **  VARTEST  **  <212 > 

FOR  B=1  TO  LEN ( A» ) —2  <163> 

IF  M I D»  ( A» ,  B ,  1)0"  0"  THEN  NEXT :  RETURN  <247> 
X=VAL (MID» (A»,B+1 ,2) ) : IF  X>50  THEN  X 
=0  < 157> 

IF  X=0  THEN  NEXT: RETURN  <108> 

A»=LEFT» ( A» , B- 1 ) + V» ( X ) +R I GHT» ( A» , LEN 
(A») -B-2) : GOTO  30400  <1B7> 

NEXT: RETURN  <161> 

INPUT#15,EN: IF  EN<  >0  THEN  INPUT#15,A 
» : PR I NT  A» : RETURN  <  222 > 

RETURN  <029> 

REM  **  EINSTELLFORM  **  <094> 

PRINT" <CLR>"; PT»: CLOSE  15  <091 > 


35150 

35160 


35999 

36000 


36020 

36030 


36040 

36041 
36050 
36060 

36070 

36999 

37000 
37010 

37100 

37101 

37110 

37111 


37112 

37115 

37116 

37117 

37119 

37120 

37121 

37122 

37124 

37125 


PRINT" {HOME > " : PR I NT " CDOWN  >  £AR AMETER 
JLINSTELLEN"  <0B9> 

PRINT"  {2DOWNICM3  MORMAL  CJC.]  JU_EIN<6S 
PACE> " ; C»  <065> 

INPUT"  {UP >  CM]  HORM  AL  CJLD  jy_EIN{4SPAC 
E>" ; C»  <045> 

PRINT"  CM3  MORMAL  CJLD  JLDMPRIM.  {3SPACE 
>";K»  <209> 

INPUT"  {UPJCH3  MORMAL  CJL3  iDMPRIM.  "; 

K»  <175> 

PRINT" CM]  MORMAL  C£]  £LITE{6SPACE>" ; 

SY»  < 104> 

INPUT" {UP > CM]  MORMAL  C£]  £LITE{4SPAC 

E> " ; SY»  <220> 

PRINT" CM3  CS3  ÜLS  C£]  SMPHAS. C3SPACE 

>" ; Sl»  <245> 

INPUT" {UP > CM]  CS]  Mkä  C£]  SMPHAS.  "; 

Sl»  <243> 

PR INT "MULL  MIT  STR I CH {11 SPACE > " ;  NU»  <1B6> 
INPUT" {UP > MULL  MIT  STRICH {9SPACE> "; N 
U»  < 1 18> 

PR INT "ZEICHEN  PRO  flRUCKERZ. {5SPACE>" 

; GE : B A= 1  <166> 

INPUT" {UP >ZEI CHEN  PRO  BRUCKERZ. {3SPA 

CE  > " ; GE  < 1 13> 

PR INT "DAVON  BENUTZTE  ZEICHEN{4SPACE> 

";ZZ:N8=0  <117> 

INPUT" {UP >DAVON  BENUTZTE  ZEICHEN{2SP 

ACE  > " ; Z  Z : N8=0  <204> 

IF  ZZ>200  THEN  PRINT"ZU  GROSS"; GOTO 

35180  <051 > 

PR INT "ZEILEN  PRO  BRUCKERZ. {6SPACE}" ; 

YY  <096> 

INPUT" {UP > ZEILEN  PRO  BRUCKERZ. {4SPAC 
E>" ; YY  < 158> 

DA»=LEFT» ( A8» , Z  Z-LEN ( D» ) ) +D»  < 1 1 4  > 

I NPUT "  £1 NGABEN  OJC.{  1 5SPACE >N  {3LEFT >  "  ; 

A»: IF  A»="N"THEN  35101  <107> 

PRINT" {CLRJ": RETURN  <129> 

REM  **  DRUCKER  INIT**  <135> 

F0»= " " : FA»= " " : LF=0  < 1 6 1 > 

IF  DS<  >0  THEN  CLOSE  1:0PEN  1,DA,DS  <079> 

IF  DS=0  THEN  CLOSE  1:0PEN  1,DA  <173> 

IF  TD»= " J " THEN  RETURN  <186> 

PR I NT # 1 , CHR» ( 27 ) ; : IF  C»="K"THEN 
PRINT#1,BV»;  <216> 

IF  ED<2  THEN  PRINT#1 , CHR» (27) +"8" ;  <225> 

PRINT#1 ,CHR» (27) +“7"+CHR» (2) ; : IF  SY» 
="E"THEN  PRINT#1 , CHR» (27) ; "B";CHR»(2 
);  < 149> 

IF  S1»="S"THEN  PRINT#1 ,CHR» (27) ; "B"; 

CHR» (4);  <034> 

IF  S 1 »= " E " THEN  PRINT#1 ,CHR» (27) ; "E" ;  <146> 
IF  K»="K"THEN  PRINTttl ,CHR» ( 15) ;  <099> 

I F  NU»= " J " THEN  PR I NT# 1 , CHR» ( 27 ) ; CHR» 

(92) ;CHR»(1) ;  <194> 

DA»=LEFT» ( A8» , Z  Z-LEN ( D» ) ) +D»  <  232  > 

RETURN  <226> 

REM  **  EINSTELLFUNKTION  **  <186> 

IF  LEFT» (T», 1 ) =" >"THEN  T»=RIGHT» (T», 

LEN (T») —9)  <100> 

PRINT" {CLR> " ; PT»: CV=0: YX=0: CLOSE  2: C 
LOSE  15  <003> 

PR I NT " {HOME  > "  <  250  > 

POKE  198 ,0:  GS=0  <104>‘ 

INPUT"  {DOWN IU.S-E.R.P-0-K.T  INTERFACE {BSPAC 
E>J{3LEFT>";A»: IF  A»="J"THEN  SYS  501 
94  < 192> 

IF  A»="N"THEN  I NPUT " SEKUND AERADRESSE 
{10SPACE>7 {3LEFT> " ; DS  <029> 

ED=0: I NPUT " £1 NZELBLATT  SINZUG{8SPACE 
> J {3LEFT > " ; A» : I F  A»="N"THEN  ED=2  <234> 

IF  A»="E"THEN  6000  <234> 

IF  A»="F"THEN  GOSUB  15000: GOTO  37000  <045> 
FA»="FORM"  < 191 > 

PRINT "MAME  DES  FORMBLATTES {6SPACE > " ; 

FA»  < 162> 

INPUT" {UP > MAME  DES  ÖDRMATBLATTES {2SP 
ACE>" ; FO»  <020> 

FA»=FO»  <060> 

FO»=" >"+BA»+ " 000000 " +F0»  <  054  > 

PR INT "MAME  DES  IEXTES  AUF  fiISK{2SPAC 
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E>";T4  <21 1 > 

37126  INPUT"  OJPlüAME  DES  ZEXTES  AUF  flISK"; 

-  T4:SH=0: RETURN  <134> 

37131  I NPUT " ST ART  SEITEN  NR. <10SPACE>1 <3LE 

FT>";S4:SH=VAL(S4>-1  <20B> 

37165  I  NPUT  "  TEST.  SRUCK  {  1 6SPACE  >N  -C3LEFT  >  "  ;  T 

D4  <154> 

37170  INPUT "ADRESSE  BENOETIBT {9SPACE>N{3LE 

FT>" ; A4: IF  A4="J"THEN  38000  <115> 

37171  IF  A4="S"THEN  W=1:G0SUB  50090  <153> 

37172  IF  A4="E"THEN  39000  <10B> 

37999  RETURN  <210> 

38000  REM  **  EINE  ADRESSE  HOLEN  **  <125> 

38001  PRINT" tCLR>" ; PT4: PRINT" {DOWNIEINE  flD 

RESSE  LADEN"  <033> 

38002  PRINT" {RVSON,SPACE > SITTE  fUlRJJ5j5jmTLH 

SI.S-KXT.TJL  EINLEGEN  !!!  "  <102> 

38010  N4="":POKE  917,39: POKE  918,30: POKE  9 

20 , 7 : POKE  924,0  <045> 

38051  POKE  908,0: POKE  921 ,0: PRINT" {HOME, 6D 
OWNJüAME < 1 1 SPACE > “ : SYS  50 1 76 , N4 , N4 : P 

RINT  <098> 

38052  IF  VAL(N4>>0  THEN  Y= VAL (N4> : GOTO  380 


54  <092> 

38053  GOSUB  40100: IF  Y=0  THEN  PR I NT " flDRESS 

E  NICHT  VORHANDEN": GOTO  38000  <143> 

38054  GOSUB  50145: GOSUB  50155:CLOSE  2: CLOS 

E  15: RETURN  <202> 

39000  PRINT" {CLR>";PT4: PRINT: PRINT  <153> 

39005  N4=" " : POKE  917,39: POKE  91B,30:POKE  9 

20, 7: POKE  924,0  <024> 

39010  POKE  908,0: POKE  921 , 0: PRINT" {HOME , 6D 
OWN  >ÜDRNAME {8SPACE > " : SYS  50176, "" ,V4 
( 1 ) : PRINT  < 1 17> 

39012  POKE  908,0: POKE  921 ,0: PRINT" {HOME, 6D 
OWN >AACHN AME {7SPACE > " : SYS  50 1 76 ," ", V 
$ (2): PRINT  <245> 

39014  POKE  908,0: POKE  921 , 0: PRINT" <HOME , 6D 
OWN > STRASSE {BSPACE > ” : S YS  50 1 76 ," ", V« 

(3): PRINT  < 123> 


39016  POKE  908 , 0 : POKE  921 ,0: PRINT" {HOME , 6D 
OWN>£Lä  ART {8SP ACE > " : SYS  50176, "",V4 
(4): PRINT  <232> 

39018  POKE  908,0: POKE  921 ,0: PRINT" {HOME, 6D 
OWN > JELEPHON {7SP ACE > " : SYS  50 1 76 V 
4(5): PRINT  <063> 

39020  POKE  908,0: POKE  921 ,0: PRINT" {HOME, 6D 
OWNlfiEBURTSD. {6SPACEJ " : SYS  50176,"", 


V* (6): PRINT  <228 > 

39022  POKE  908,0: POKE  921 ,0: PRINT" {HOME, 6D 
O WN  >  SP I T  Z  NAME {6SP ACE  > " : S YS  50176,"", 

V4 (11): PRINT  <202> 

39024  POKE  908,0: POKE  921 ,0: PRINT" {HOME, 6D 
OWN > SUSI  SENNUNG {3SPACEJ " : SYS  50176, 

"" ,V4(12) :PRINT  <177> 

39099  RETURN  <038> 

40000  BA4=CHR4 ( PEEK ( 930 ) ) +CHR4  <  PEEK (931)): 

F A=PEEK ( 932 ) : RETURN  < 1 52  > 

40010  POKE  930 , ASC ( LEFT 4  <  BA4 , 1 ) ) : POKE  931, 

ASC ( R I GHT4 ( BA4 , 1 ) ) : POKE  932 , FA : RETUR 
N  <077> 

40100  CLOSE  2: CLOSE  15: OPEN  15,8, 15: T=1 : OP 

EN  2,8,2, "AD, S,R"  <083> 

40110  I NPUT #15, ER , A4 : I F  ER<  >0  THEN  PRINT  E 
R, A4: POKE  198,0: WAIT  198,1:GET  B4:G0 
TO  40100  <229> 

40120  INPUT#2, A4, Y: IF  LEFT4 (A4, LEN (N4) ) =N* 

THEN  RETURN  <075> 

40130  IF  ST<>64  THEN  40120  <062 > 

40140  CLOSE  2: Y=0: RETURN  <001 > 

50090  REM  ***  LOAD  AD  ***  <194> 

50095  DIM  A ( 500 ) : I NPUT " NAME " ; A4  <041 > 

50096  CLOSE  2: CLOSE  15:0PEN  15, 8, 15: T=1 : OP 

EN  2,8,2, A4+" ,S,R"  <216> 

50097  I NPUT #15, ER , A4 : I F  ER<  >0  THEN  PRINT  E 
R , A4: POKE  19B,0:WAIT  198,1:GET  B4:G0 

TO  50096  <235> 

50100  I NPUT #2 , A4 , A ( T )  <01B> 

50105  IF  ST<>64  THEN  T=T+l:GOTO  50100  <251 > 

50110  CLOSE  2: CV=T: RETURN  <083 > 

50115  REM  ***  FIND  NAME  ***  <0B3> 

50120  I NPUT " NAME  T2SPACE > " ; X4  <145> 

50125  FOR  Y=1  TO  AN: IF  LEFT 4 ( A4 ( Y ) , LEN ( X4 ) 

>=X4THEN  50135  <079> 


50130  NEXT: PR INT "NICHT  GEFUNDEN" : Y=0: RETUR 

N  <063> 

50135  RETURN  <152> 

50140  CLOSE  2: RETURN  <234> 

50145  CLOSE  15: OPEN  15,8,15  <019> 

50150  CLOSE  2: OPEN  2,8,2, "AS ALEM,L, "+CHR4 ( 

254): RETURN  <134> 

50155  REM  ***  LOAD  NR  ***  <167> 

50156  HB=INT (Y/256) :LB=Y— 256*HB  <045> 

50160  PRINT# 15, "P"+CHR4 (2) +CHR4 (LB) +CHR4 (H 

B)+CHR4(1) :POKE  915,2  <129> 

50165  POKE  917, 19: SYS  50182, V4(l)  <064> 

50170  SYS  50182, V4 (2)  <229> 

50175  SYS  50182, V4 (3)  <250> 

50180  POKE  917,3:SYS  50182, V4(4)  <074> 

50185  POKE  917, 19: SYS  50182,04: V4 (4) =V4 (4) 

+"  " +04  <040 > 

50190  POKE  917,15: SYS  50182, V4 (5)  <151> 

50195  POKE  917 , 1 : SYS  50182, G4: V4 (6) =G4+" . "  <012> 

50196  SYS  50182, G4: V4 (6) =V4 (6) +G4+" . "  <152> 

50197  POKE  917,3: SYS  50182, G4: V4 (6) =V4 (6) + 

G4  < 163> 

50200  POKE  917,9: SYS  50182 ,PA4: V4 (7) ="GESC 

HUETZT"  '  <062> 

50201  IF  BA4=" — "OR  BA4= " OF " THEN  V4(7)=PA4  <049> 

50205  POKE  917,1: SYS  50182, V4 (8)  <130> 

50210  POKE  917,9: SYS  50182, V4(9)  <147> 

50215  POKE  917,9: SYS  50182,V4(10)  <238> 

50220  POKE  917, 19: SYS  501B2,V4(11)  <196> 

50225  SYS  50182, V4 ( 12)  <121> 

50226  SYS  50182 , V4 (13)  <154> 

50227  SYS  50 182, V4 (14)  <187> 

50230  AS= ASC ( LEFT4 ( V4 ( 1 1 )  , 1 ) )  <  052 > 

50240  IF  AS >64  AND  AS<91  THEN  AS=AS+32:V4( 

1 1 >  =CHR4 (AS) +RIGHT4 ( V4 ( 1 1 ) ,LEN ( V* ( 1 1 
))-l)  <227> 

50250  A4=MID4(V4( 12) ,5,1)  <120> 

50260  IF  A4= 11 —  "THEN  V4 (20) ="£RAU"  <007> 

50270  IF  A4="0"THEN  V4 (20) ="LIRMA"  <052> 

50280  IF  A4=“+"THEN  V4 (20) ="ÜERR"  <107> 

50^77  A4=LEFT4(V4 (12) ,1)  <090> 

50300  IF  V4 ( 20 ) = " EI RM A " THEN  V4(21)="SEHR  G 

EEHRTE  SAMEN  UND  l^ERREN ,  "  :  GOTO  50500  <007> 
50310  IF  A4="+"THEN  50400  <023> 

50320  IF  A4="-"THEN  50460  <226> 

50321  IF  A4="0"THEN  50450  <069> 


50330  IF  V4( 20)= "FRAU “THEN  V4 (21)=" SEHR  GE 

EHRTE  £RAU  "+V4  (2)  -«-"  ,  "  <142> 

50340  IF  V4 (20)= "HERR "THEN  V4 (21 ) =" SEHR  GE 

EHRTER  MERR  "+V4(2)+M,"  <23B> 

50350  GOTO  50500  <21 1> 

50400  IF  V4  ( 20 )  =  " £R  AU " THEN  V4  (21 )  ="i.IEBE  " 

+V4 ( 1 ) +" , "  <100> 

50410  IF  V4  (20)="  HERR"  THEN  V4(21)="i.I  EBER 

"+V4 ( 1 ) +" , "  <242> 

50420  GOTO  50500  <025> 

50450  V4(21)="ÜALL0  "+V4 ( 1 )+",": GOTO  50500  <191> 
50460  V4 (21 ) =V4 ( 1 ) +" , " : GOTO  50500  <125> 

50500  V4(22)=BA4  <141> 

50510  IF  V4  ( 20 )  =  "  E.I  RM  A  "  THEN  V4(23)="flIT  FR 

EUNDLICHEN  fiRTT+EN  ,  "  t  GOTO  50600  <154> 

50520  IF  M I D4 ( V4 (12) ,9,1)="+" THEN  V4(23>=" 

SJSS I , " : GOTO  50600  < 244  > 


50530  IF  A4=“+" THEN  V4(23)="ÄIS  BALD,  SEIN 

"  <233> 


50540  IF  A4="F"THEN  V4 (23) ="ÜOCHACHTUNGSVO 

LL,"  < 188> 

50550  IF  A4="— "THEN  V4(23)="“  <128> 

50560  IF  A4="0"THEN  V4 (23) ="SEIN"  <166> 

50600  IF  V$ ( 20 ) = " £1  RM A “ THEN  V$(24)="flIT  FR 

EUNDLICHEN  SRUTEN , " : GOTO  50600  <053> 

50620  IF  M I D4 ( V4 (12) ,9,1)="+" THEN  V4(24)=" 

SJSS I , " : GOTO  50700  <  09 1 > 

50630  IF  A4="+"THEN  V4(24)="SIS  BALD,  SEIN 

E"  < 104> 

50640  IF  A4="F"THEN  V4 (24) = " ÜOCHACHTUNGSVO 

LL,"  <097> 

50650  IF  A4="— "THEN  V4(24)=""  <037> 

50660  IF  A4="0"THEN  V4 (24) ="SEINE"  <037> 

50700  REM  <215> 

50999  RETURN  <000> 


6  G4'er 

Der  Druckertreiber  zu  »Hypra-Text«  (Schluß) 
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Bilder  aus 
einer  anderen 
Dimension 

Kunst  aus  dem  Computer  ist  auf  Groß¬ 
rechnern  im  Kommen.  Daß  es  auch 
mit  dem  C  64  geht,  zeigt  dieses  Pro¬ 
gramm. 

Mit  Hilfe  einer  einfachen  Formel  lassen  sich  die  erstaunlich¬ 
sten  Grafiken  erzeugen.  Das  Apfelmännchen,  wie  man  diese 
Grafiken  auch  bezeichnet,  wurde  zuerst  von  dem  Mathemati¬ 
ker  Mandelbrot  entdeckt.  Das  Apfelmännchen  stellt  einen  Aus¬ 
schnitt  aus  der  Ebene  der  komplexen  Zahlen  dar.  Die  mathe¬ 
matischen  Grundlagen  dazu  werden  in  Bild  1  erläutert. 
Hinweise  zum  Abtippen.  Tippen  Sie  das  Maschinenpro¬ 
gramm  (Listing  1)  mit  dem  MSE  ein  und  speichern  Sie  es  unter 
dem  Namen  »APFELROUTINEN«.  Dann  geben  Sie  das  Basic- 
Programm  (Listing  2)  mit  dem  Checksummer  ein  und  spei¬ 
chern  es  ebenfalls.  Die  REM-Zahlen  können  weggelassen 
werden,  da  sie  im  Programm  nicht  angesprungen  werden. 
Nach  dem  Starten  des  Basic- Programms  wird  das  Maschinen¬ 
programm  automatisch  nachgeladen.  Außerdem  werden  die 
Zeiger  für  den  Beginn  der  Variablen  verändert.  Wenn  man  eine 
Grafik  geladen  hat  und  erneut  das  Basic-Programm  speichert, 
wird  die  Grafik  daran  angehängt.  s*er  c 

Die  Bedienung  des  Programms 

Vom  Menü  aus  lassen  sich  folgende  Unterpunkte  anwählen: 
Neue  Werte:  Hier  können  Sie  die  Grenzen  für  Realteil  (lin¬ 
ker/rechter  Rand)  und  Imaginärteil  (oberer/unterer  Rand)  der 
Zahlen  (siehe  Bild  1)  eingeben,  die  Sie  darstellen  wollen.  Das 


Für  Zeile  =  0  bis  199 


Für  Spalte  *  0  bis  39 


Für  4  Punkt! 


(  = 


1  Spalte  =  1  Byte) 


Tiefe  »  0 

Xwert  =  0  Ywert  =  0 
Xquad  =  0  Yquad  =  0 


Solange  (Tiefe  kleiner  Tiefemax)  UND 
(Xquad  ♦  Yquad  kleiner  8) 


Ywert  =  2  *  Xwert  *  Ywert  -  CY 
Xwert  =  Xquad  -  Yquad  -  CX 
Xquad  =  Xwert  *  Xwert 
Yquad  =  Ywert  #  Ywert 
Tiefe  =  Tiefe  +  1 


Tiefemax  erreicht  ?  ^0^*0**^ 

Ja 

Nein 

Punktfarbe  =  0 

Punktfarbe  => 

(Tiefe  MOD  3)  f  1 

4  Punkte  setzen  <1  Byte) 


CX  -  Xmin 
CY  =  CY  -  DY 


Ausgangsbild  aller  Apfelmännchen  finden  Sie  mit  den  Parame¬ 
tern:  linker  Rand  —0.7,  rechter  Rand  2.1,  unterer  Rand  —1, 
oberer  Rand  1.  Die  maximale  Tiefe  bestimmt,  nach  wievielen 
Iterationen  (Wiederholungen)  abgebrochen  wird.  Es  sind  Wer¬ 
te  von  5  bis  254  zugelassen.  Je  größer  die  Tiefe,  desto  mehr 
Details  treten  am  Rand  der  Figur  zutage.  Beachten  Sie  aber, 
daß  eine  große  Tiefe  auch  eine  lange  Rechenzeit  bedeutet. 
Nach  Eingabe  der  Tiefe  werden  Sie  gefragt,  ob  die  fertige  Gra¬ 
fik  auf  Diskette  gespeichert  werden  soll  —  zum  Beispiel,  wenn 
Sie  den  Computer  über  Nacht  rechnen  lassen.  Falls  Ihnen  die 
Werte  nicht  gefallen  sollten,  können  Sie  jetzt  noch  mit  dem 
Linkspfeil  ins  Menü  zurück.  Wenn  Sie  die  Grafik  speichern  las¬ 
sen,  muß  ein  File-Namen  eingegeben  werden.  Nach  der  letz¬ 
ten  Eingabe  beginnt  der  Aufbau  des  Bildes.  Das  Programm 
kann  dann  nur  noch  durch  RUN/STOP-RESTORE  abgebro¬ 
chen  werden.  Natürlich  kann  eine  abgebrochene  Berechnung 
nach  einem  RUN  gespeichert  werden,  zum  Beispiel  um  später 
einen  Ausschnitt  zu  berechnen.  Denn  statt  die  Grenzen  als 
Zahlen  einzugeben,  können  Sie  auch  einen  Ausschnitt  aus  ei¬ 
nem  bereits  bestehenden  Bild  berechnen  lassen. 
Ausschnitt:  Am  linken  oberen  Rand  erscheint  ein  weißes  Eck, 
mit  dem  Sie  die  linke  obere  Ecke  des  neuen  Bildes  markieren. 
Gesteuert  wird  es  mit  den  Cursortasten,  und  fixiert  mit  der 
Space-Taste.  Mit  dem  rechten  unteren  Eck  wird  genauso  ver¬ 
fahren.  Der  Ausschnitt  sollte  ungefähr  die  Form  des  Bild¬ 
schirms  haben,  da  sonst  die  Grafik  stark  verzerrt  wird.  Mit  der 
Eingabe  der  maximalen  Tiefe  geht  es  dann  weiter  wie  bei  der 
Eingabe  von  neuen  Werten. 

Bild  ansehen:  Unter  diesem  Menüpunkt  können  Sie  sich  eine 
fertige  Grafik  ansehen.  Mit  den  Funktionstasten  können  Sie 
die  Farben  verändern.  Zurück  ins  Menü  geht  es  mit  dem  Links¬ 
pfeil. 

Speichern:  Ein  fertiges  Bild  kann  auf  Diskette  gespeichert 
werden.  Dabei  wird  an  den  Filenamen  die  Endung  ».pic«  ange¬ 
hängt.  Zusätzlich  werden  die  Parameter  des  Bildes  mit  auf  Dis¬ 
kette  abgelegt. 

Laden:  Bilder  von  Diskette  können  unter  Angabe  des  Namens 
von  Diskette  geladen  werden.  Die  Endung  ».pic«  ist  dabei  nicht 
mitanzugeben.  Nach  Beendigung  des  Ladevorgangs  werden 
die  dem  Ausschnitt  entsprechenden  Parameter  angezeigt. 
Directory:  Nach  Aufruf  dieser  Funktion  wird  ein  Verzeichnis  al¬ 
ler  Bilder,  die  mit  ».pic«  enden,  auf  dem  Bildschirm  gelistet. 
Effekt:  Durch  zyklisches  Vertauschen  der  Farbwerte  entsteht 
der  Eindruck  eines  bewegten  Bildes.  Auch  hier  können  Sie  die 
Farben  mit  den  Funktionstasten  verändern.  Ins  Menü  zurück 
kommt  man  wieder  mit  dem  Linkspfeil. 
Programmbeschreibung 

Die  wesentlichen  Routinen  sind  im  Maschinenprogramm 
enthalten,  das  den  Bereich  von  $C800  bis  $CB1E  belegt.  Es 
gibt  folgende  Einsprungadressen: 


Bild  2.  Struktogramm  des  Berechnungs-Algorithmus 


Adresse 

Varia¬ 

ble 

Routine 

Funktion  der  Routine 

51200 

USRIN 

übergibt  Werte  an  Maschi 
nenprogramm 

51207 

USROUT 

übergibt  Werte  an  Basic 

51214 

Ml 

MULTION 

Grafik  einschalten 

51217 

MO 

MULTIOFF 

Grafik  ausschalten 

51220 

SC 

SETCOL 

Farben  setzen 

51223 

BG 

BEGIN 

Berechnen  der  Grafik 

51226 

SA 

SAVEPIC 

Bild  speichern 

51229 

LO 

LOADPIC 

Bild  laden 

51232 

CL 

CLRSCR 

Grafikbildschirm  löschen 

Die  Adressen  der  Variablen,  die  im  Assemblerprogramm  ver¬ 
wendet  werden,  können  Sie  dem  Source-Code  (Listing  3)  ent¬ 
nehmen.  Für  die  Arithmetik  des  Berechnungsteils  werden  die 
Routinen  des  Basic-Interpreters  benutzt.  Der  Berechnungsteil 
des  Maschinenprogramms  folgt  dem  Algorithmus  des  Strukto- 
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gramms  (Bild  2).  Das  Basic-Programm  enthält  folgende  Unter¬ 
programme: 

Ab  Zeile  Funktion 

1000  Eingabe  neuer  Werte 

2000  Ausschnitt 

3000  Grafik  ansehen 

4000  Bild  speichern 

5000  Bild  laden 

5500  Directory 

7000  Bewegungseffekt 

Die  Übergabe  der  Werte  für  die  Ränder  an  das  Assembler¬ 
programm  erfolgt  über  die  USR-Funktion.  Dabei  werden  die 
Zahlen  von  Basic  aus  in  den  Fließkomma-Akku  geschrieben. 


Eine  kurze  Unterroutine  speichert  die  Zahlen  dann  an  ihre  rich¬ 
tige  Adresse.  Dazu  wird  von  Basic  aus  direkt  in  das  Maschi¬ 
nenprogramm  die  jeweilige  Adresse  gePOKEt  (Variable  XI',  XA, 
Yl,  YA).  Auf  ähnliche  Weise  werden  auch  die  Parameter  eines 
geladenen  Bildes  an  Basic  übergeben. 

Die  Demo-Bilder 

Die  Demo-Bilder  sind  auf  der  Programmservice-Diskette 
enthalten.  Sie  können  diese  laden  und  gleich  mit  der  Erstel¬ 
lung  eines  Ausschnitts  beginnen.  Wir  hoffen,  daß  die  Beispiel¬ 
bilder  Sie  ein  wenig  auf  den  Geschmack  gebracht  haben  und 
wünschen  Ihnen  viel  Spaß  auf  Ihrer  Entdeckungsfahrt  durch 
die  unendlichen  Weiten  der  Mathematik. 

(Gerhard  Pehland/og) 


Eine  komplexe  Zahl  besteht  aus  zwei  Zahlen,  dem  Real- 
und  dem  Imaginärteil.  Bei  diesem  Programm  werden  die 
beiden  Anteile  durch  die  X-  und  Y-Koordinate  auf  dem  Gra¬ 
fikbildschirm  repräsentiert.  Das  heißt  die  Koordinaten  jedes 
Punktes  auf  dem  Bildschirm  stehen  für  eine  komplexe  Zahl, 
die  im  folgenden  »C«  genannt  wird. 

Wie  entstehen  nun  diese  fantastischen  Grafiken? 

Es  beginnt  mit  der  komplexen  Zahl  0.  Davon  wird  die  Zahl 
C  abgezogen.  Es  ergibt  sich  eine  neue  komplexe  Zahl,  die 
jetzt  quadriert  wird.  Vom  Ergebnis  wird  wieder  C  abgezo¬ 
gen,  dann  quadriert  und  so  weiter.  Dabei  entsteht  eine  Fol¬ 
ge  von  Zahlen,  die  eine  merkwürdige  Eigenschaft  hat:  Für 
manche  Werte  von  C  ergibt  sich,  daß  die  Elemente  der  Fol¬ 
ge  immer  kleiner  werden,  bei  anderen  Werten  steigt  sie 
schnell  an.  Dazwischen  gibt  es  aber  Werte,  bei  denen  die 
Folge  lange  unschlüssig  hin  und  her  pendelt,  bis  sie  steigt 
oder  fällt.  Die  Farbe  eines  Punktes  auf  dem  Bildschirm  wird 
bestimmt,  indem  man  den  dazugehörigen  Wert  C  in  die  Fol¬ 
ge  einsetzt  und  so  lange  immer  wieder  abzieht  und  qua¬ 
driert,  bis  die  Elemente  der  Folge  eine  gewisse  Grenze 
überschreiten.  Aus  der  Anzahl  der  Iterationen  ergibt  sich 
die  Farbe  des  entsprechenden  Punktes.  Natürlich  muß 
man  die  Berechnung  irgendwann  beenden.  Das  geschieht 
zum  einen,  wenn  die  Folge  das  Grenzkriterium  überschrit¬ 


ten  hat,  oder  wenn  die  maximale  Tiefe  erreicht  ist.  Führt 
man  diese  Berechnungen  für  alle  Punkte  des  Bildschirms 
durch,  entstehen  typische  Grafiken  (siehe  Seite  169).  Das 
Struktogramm  (Bild  2)  zeigt  Ihnen  den  genauen  Ablauf  und 
die  verwendeten  Formeln.  Die  Bedeutung  der  Variablen 
können  Sie  dem  Source-Code  (Listing  3)  entnehmen.  Ein 
typisches  Beispiel  ist  das  Ausgangsbild  mit  den  oben  ange¬ 
gebenen  Werten.  In  der  Bildschirmmitte  liegen  die  Werte 
von  C,  bei  denen  die  Folge  sofort  sinkt.  Ganz  außen  steigt 
die  Folge  schnell  an.  Interessant  ist  die  Grenzschicht  da¬ 
zwischen.  Hier  gibt  es  die  bizarrsten  Muster,  die  Sie  mit 
»Ausschnitt«  (siehe  Text)  herausvergrößern  können.  Bei 
der  Vergrößerung  zeigt  sich  eine  weitere  Eigenschaft  die¬ 
ser  Bilder:  Am  Rande  des  großen  Apfelmännchens  sitzen 
nämlich  noch  unzählige  weitere,  kleinere  Männchen,  auf 
denen  noch  kleinere  Figuren  sitzen.  Diese  Eigenschaft 
wird  Selbstähnlichkeit  genannt.  Aber  auch  andere  Muster 
tauchen  immer  wieder  auf,  mal  größer,  mal  kleiner. 

Zurp.  Schluß  noch  ein  Wort  zur  Rechenzeit:  Obwohl  die 
Berecni  lungsroutine  in  Assembler  geschrieben  ist,  muß 
man  auf  die  fertige  Grafik  manchmal  bis  zu  8  (acht!)  Stun¬ 
den  warten,  da  ja  für  32000  Punkte  bis  zu  250mal  qua¬ 
driert,  subtrahiert  und  verglichen  wird. 

Bild  1.  Die  mathematischen  Grundlagen 


PROGRAMM 

:  APFELRQUTINEN 

C800  CB1E 

C8F0 

: 

00 

CE 

CB 

C0 

04 

D0 

02 

A0 

B2 

CA08 

: 

20 

50 

B8 

20 

B4 

BF 

A2 

80 

57 

C8F8 

: 

01 

EB 

D0 

F2 

60 

AD 

16 

D0 

6D 

CA  10 

A0 

CF 

20 

D4 

BB 

A0 

00 

A9 

4F 

C900 

: 

29 

EF 

8D 

16 

D0 

AD 

11 

D0 

A7 

CA18 

: 

F7 

20 

A2 

BB 

A0 

00 

A9 

57 

9F 

C90B 

: 

29 

DF 

8D 

1 1 

D0 

AD 

1B 

D0 

23 

CA20 

20 

50 

BB 

A9 

40 

A0 

CF 

20 

54 

C910 

: 

29 

F7 

BD 

18 

D0 

A9 

0C 

8D 

41 

CA28 

: 

50 

B8 

20 

B4 

BF 

A2 

70 

A0 

87 

C800 

A2 

40 

A0 

3F 

4C 

D4 

BB 

A9 

80 

C91B 

: 

21 

D0 

A9 

0B 

BD 

20 

D0 

A9 

DE 

CA30 

: 

CF 

20 

D4 

BB 

4C 

A0 

C9 

0E 

C9 

CB08 

: 

40 

A0 

3F 

4C 

A2 

BB 

4C 

89 

3E 

C920 

s 

93 

20 

D2 

FF 

60 

7B 

20 

EA 

98 

CA3B 

: 

02 

CF 

0E 

02 

CF 

0D 

02 

CF 

F3 

CB  10 

: 

CB 

4C 

FD 

CB 

4C 

41 

CB 

4C 

21 

C92B 

: 

CB 

A9 

40 

A0 

3F 

20 

A2 

BB 

E0 

CA40 

: 

8D 

02 

CF 

A9 

40 

A0 

CF 

20 

B0 

CB1B 

: 

AC 

CA 

4C 

B5 

CA 

4C 

D5 

CA 

EF 

C930 

: 

A9 

45 

A0 

3F 

20 

50 

BB 

20 

34 

CA4B 

A2 

BB 

A9 

90 

A0 

CF 

20 

67 

IC 

CB20 

4C 

27 

CB 

00 

07 

0A 

02 

A9 

4E 

C93B 

0C 

BC 

A0 

9F 

20 

A2 

B3 

20 

E4 

CA50 

B8 

A2 

40 

A0 

CF 

20 

D4 

BB 

46 

CB28 

: 

00 

85 

A4 

A9 

20 

85 

A5 

A0 

4F 

C940 

: 

El 

C8 

20 

12 

BB 

A2 

90 

A0 

24 

CA58 

: 

EE 

03 

CF 

AD 

03 

CF 

29 

03 

CB 

CB30 

00 

A9 

00 

91 

A4 

CB 

D0 

F9 

FF 

C948 

: 

CF 

20 

D4 

BB 

A9 

4A 

A0 

3F 

C2 

CA60 

: 

F0 

03 

4C 

90 

C9 

8D 

03 

CF 

AC 

C838 

: 

E6 

A5 

A9 

40 

C5 

A5 

D0 

Fl 

14 

C950 

20 

A2 

BB 

A9 

4F 

A0 

3F 

20 

ID 

CA68 

: 

20 

A5 

C8 

EE 

01 

CF 

AD 

01 

B2 

CB40 

60 

A9 

00 

BD 

20 

D0 

AD 

23 

AC 

C958 

: 

50 

B3 

20 

0C 

BC 

A0 

C7 

20 

BE 

CA  70 

: 

CF 

C9 

28 

F  0 

03 

4C 

8B 

C9 

A0 

C040 

: 

CO 

OD 

21 

D0 

AD 

24 

CB 

0A 

6C 

C960 

A2 

B3 

20 

El 

C8 

20 

12 

BB 

60 

CA78 

s 

A9 

00 

BD 

01 

CF 

A0 

05 

B9 

2C 

CB50 

: 

0A 

0A 

0A 

0D 

25 

CB 

A2 

00 

A7 

C968 

: 

A2 

30 

A0 

CF 

20 

D4 

BB 

A0 

ID 

CA80 

: 

40 

3F 

99 

40 

CF 

88 

10 

F7 

40 

C858 

: 

86 

A4 

86 

A6 

A2 

04 

B6 

A5 

56 

C970 

: 

04 

B9 

40 

3F 

99 

40 

CF 

B9 

97 

CAB8 

: 

EE 

00 

CF 

AD 

00 

CF 

C9 

C8 

57 

C860 

: 

A2 

DB 

86 

A7 

AE 

12 

D0 

E0 

85 

C97S 

: 

4F 

3F 

99 

60 

CF 

BB 

10 

Fl 

3F 

CA90 

: 

F0 

18 

A9 

30 

A0 

CF 

20 

A2 

4B 

C86S 

: 

3A 

D0 

F9 

AE 

11 

D0 

30 

F4 

Al 

C9B0 

: 

A9 

00 

BD 

00 

CF 

8D 

01 

CF 

9A 

CA98 

: 

BB 

A9 

60 

A0 

CF 

20 

50 

B8 

05 

C870 

: 

A0 

00 

A2 

08 

91 

A4 

48 

AD 

75 

C98B 

: 

8D 

03 

CF 

A9 

00 

BD 

02 

CF 

D4 

CAA0 

: 

A2 

60 

A0 

CF 

20 

D4 

BB 

4C 

C5 

CB7B 

: 

26 

CB 

91 

A6 

68 

C8 

D0 

F4 

35 

C990 

: 

A9 

00 

BD 

04 

CF 

A0 

04 

99 

62 

CAAe 

: 

8B 

C9 

58 

60 

20 

89 

CB 

20 

EC 

CBB0 

: 

E6 

A5 

E6 

A7 

E4 

A5 

D0 

EC 

80 

C99B 

: 

70 

CF 

99 

80 

CF 

88 

10 

F7 

D8 

CAB0 

: 

25 

C9 

4C 

FD 

C8 

A2 

08 

20 

BF 

CB8B 

: 

60 

AD 

11 

D0 

09 

20 

BD 

11 

07 

C9A0 

: 

EE 

04 

CF 

AD 

54 

3F 

CD 

04 

BB 

CABB 

: 

BA 

FF 

AD 

B0 

CF 

A2 

A0 

A0 

C9 

CB90 

D0 

AD 

18 

D0 

09 

08 

BD 

1B 

8E 

C9AB 

CF 

B0 

05 

A9 

00 

4C 

37 

CA 

1B 

CAC0 

: 

CF 

20 

BD 

FF 

A9 

00 

85 

A4 

09 

CB98 

: 

D0 

AD 

16 

D0 

09 

10 

8D 

16 

52 

C9B0 

: 

A9 

70 

A0 

CF 

20 

A2 

BB 

A9 

0D 

CACB 

: 

A9 

20 

85 

A5 

A9 

A4 

A2 

56 

8E 

CBA0 

s 

D0 

20 

41 

CB 

60 

AD 

00 

CF 

FD 

C9BB 

: 

70 

A0 

CF 

20 

28 

BA 

A2 

57 

02 

CAD0 

• 

A0 

3F 

4C 

D8 

FF 

A2 

08 

A0 

B4 

CBAB 

: 

29 

F8 

4A 

4A 

AA 

BD 

EC 

CA 

0B 

C9C0 

: 

A0 

00 

20 

D4 

BB 

A9 

80 

A0 

4F 

CADE 

: 

01 

20 

BA 

FF 

AD 

B0 

CF 

A2 

7D 

C8B0 

s 

B5 

A4 

ES 

BD 

EC 

CA 

B5 

A5 

00 

C9C8 

: 

CF 

20 

A2 

BB 

A9 

80 

A0 

CF 

88 

CAE0 

: 

A0 

A0 

CF 

20 

BD 

FF 

A9 

00 

4B 

C8B8 

: 

AD 

00 

CF 

29 

07 

18 

65 

A4 

8E 

C9D0 

: 

20 

28 

BA 

A2 

F7 

A0 

00 

20 

CC 

CAE8 

s 

4C 

D5 

FF 

60 

00 

20 

40 

21 

6F 

CBC0 

: 

B5 

A4 

90 

02 

E6 

A5 

AD 

01 

50 

C9D0 

s 

D4 

BB 

A9 

57 

A0 

00 

20 

67 

38 

CAF0 

- 

80 

22 

C0 

23 

00 

25 

40 

26 

8C 

CBCB 

: 

CF 

0A 

0A 

0A 

90 

02 

E6 

A5 

60 

C9E0 

: 

BB 

A5 

61 

C9 

84 

90 

09 

AE 

4B 

CAF8 

: 

80 

27 

C0 

28 

00 

2A 

40 

2B 

EA 

CBD0 

: 

1B 

65 

A4 

B5 

A4 

90 

02 

E6 

19 

C9EB 

04 

CF 

BD 

00 

CE 

4C 

37 

CA 

05 

CB00 

: 

B0 

2C 

C0 

2D 

00 

2F 

40 

30 

47 

CBDB 

: 

A5 

A0 

00 

AD 

02 

CF 

91 

A4 

Bl 

C9F0 

: 

A9 

80 

A0 

CF 

20 

A2 

BB 

A9 

55 

CB08 

: 

80 

31 

C0 

32 

00 

34 

40 

35 

A4 

C8E0 

: 

60 

A5 

6E 

45 

66 

B5 

6F 

A5 

F3 

C9FS 

70 

A0 

CF 

20 

2B 

BA 

A5 

61 

62 

CB  10 

; 

80 

36 

C0 

37 

00 

39 

40 

3A 

02 

C8ES 

s 

61 

60 

A2 

00 

A0 

01 

98 

9D 

D2 

CA00 

F0 

02 

E6 

61 

A9 

60 

A0 

CF 

97 

CB18 

: 

80 

3B 

ca 

3C 

00 

3E 

10 

FF 

20 

Listing  1.  Maschinenprogramm  zu  »Apfelmännchen«.  Bitte  mit  dem  MSE  eingeben. 
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******************************** 
*  * 

*  APFELMAENNCHEN  * 

*  BY  * 

*  GERHARD  PEHLAND  * 

*  * 

*  MARKGRAFENSTR. 64  * 

*  8000  MUENCHEN  82  * 


10  REM 
15  REM 
20  REM 
30  REM 

40  REM 

41  REM 

43  REM 

44  REM 

46  REM  *  * 

50  REM  ******************************** 

60  POKE  53280, 11: POKE  53281 , 12: PRINT  CHR$ ( 
14) " CCLR , BLACK , 3D0WN , 1 4SPACE  JßOMENT . . . " 
70  IF  A=0  THEN  A=1 : LOAD" APFELROUT INEN" «5,1 
70  POKE  45, 10: POKE  46,65: CLR 
100  C8=200: X 1=64: XA=69: YI=74: YA=79: TM=84+3 
*4096+ 1 5*256 : BN=49 1 52+ 1 5*256+ 1 60 
120  M 1 =5 1 2 1 4 : M0=M 1 +3 : SC=M0+3 : BG=SC+3 : SA=BG 
+3: L0=SA+3: CL=L0+3 
1 30  C0=CL+3 : C 1 =C0+ 1 : C2=C 1 + 1 : C3=C2+ 1 
140  POKE  785,7: POKE  786, C8: REM  USRVEKTOR 

150  90=53248 

151  POKE  51208, XI:LI=USR(0) 

152  POKE  51208, XA:RE=USR(0) 

153  POKE  5 1 208 , Y I : UN=USR ( 0 ) 

154  FOKE  51208 , YA: OB=USR (0) 

155  POKE  785,0 

160  FÜR  1=832  TO  894: READ  X:POKE  I,X:NEXT 
170  FOR  1=896  Tü  958: READ  XtPOKE  I,X:NEXT 
200  PRINT" -CCLR,  2D0WN>"TAB(  10)  •'****  KELMU-E  * 
***" 

220  PRINT" C2D0WNJ"TAB (10) " (1) C2SPACEJMEUE 
BERTE" 

TAB (10) 


(2) £2SPACEJßUSSCH 


■TAB(10) " (3) C2SPACEJSILD  A 


240  PRINT" CDOWNJ 
NITT” 

260  PRINT" CDOWN J 
NSEHEN" 

280  PR  I  NT  "  £  DOWN  >  "  T  AB  (10)  "  (4)  C2SPACE  JSF'EICH 
ERN 

300  PR I NT " CDOWN  > " TAB ( 1 0 ) 

310  PR  I  NT  "  -CDOWN  >  "  T AB  (10) 

ORY 

315  PRINT" CDOWN > "TAB (10) 


<060> 
<064> 
<051  > 

<  134> 

<  145> 
<090> 
<245> 
<223> 
<095> 
<100> 

<226> 

<  103> 
<013> 

<012> 

<  168> 

<  163> 

<  180> 
<099> 

<  145> 
<082> 

<  198> 

<  197> 
<254>. 
<244> 
<14B> 

<015> 

<  183> 

<  1 59  > 


<  1 40  > 
<040> 


(5)  C2SPACE  J LADEN " 

(6)  C2SPACEJ DIRECT 

<075> 

(7)  C2SPACEJ EFFEKT  <159> 


20  PRINT" <3D0WN}"TAB( 10) "MAS  DARFS  SEINC2- 

SPACE J?"  < 141  > 

340  GET  A$: IF  A#<"1"  DR  A*>"7"  THEN  340  <014> 

360  ON  VAL(A$)  GOSUB  1000,2000,3000,4000,5 

000,5500,7000  <234 > 

380  GOTO  200  <062> 

990  REM  NEUE  WERTE  <242> 

1000  PRINT"  CCLR, DOWN >***  KE.U_E.CSH I FT-SPACE > 

B-E.KT.E.  ***  CDOWNJ "  <081  > 

1020  INPUT"  CDOWNJL.INKER  BAND  C2SPACE >  "  ;  L I  <247> 
1040  INPUT" CDOWN JBECHTER  RAND  " ; RE  <072> 

1060  INPUT" CDOWN >MMTERER  BAND  " ; UN  <212> 

1080  INPUT" CDOWN JfiBERER  BAND C2SPACEJ " ; OB  <063> 
1100  INPUT" C2D0WNJfiAXIMALE  HEFE  " ;  TM7.  <072> 

1110  IF  TM7.<5  DR  TM7.>254  THEN  1100  <251> 

1120  PRINT" CDOWNJfERTIGES  ZILD  SPEICHERN  ? 

<039> 

1130  GET  At: IF  A*<>"J"AND  A$<  >"N" AND  A$<>" 

«-"THEN  1130  <106> 

1135  IF  A$="+"THEN  RETURN  <041 > 

1140  PRINT  At: IF  A*="J"THEN  INPUT" CDOWN >MA 

ME  DES  BILDES  " ; NB$  <193> 

1141  SYS  CL: POKE  51201 , X I : US=USR (LI )  <040> 

1142  POKE  51201 ,XA:US=USR (RE)  <164> 

1143  POKE  51201 ,YI:US=USR(UN)  <241> 

1144  POKE  51201 ,YA:US=USR (OB)  <150> 

1145  POKE  TM,TM7.  <186> 

1150  SYS  BG  < 134> 

1160  IF  A*="J"THEN  4020  <248> 

1200  RETURN  <242> 

1990  REM  AUSSCHNITT  <064> 

2000  PRINT"  CCLR, DOWN>***  KU 5.5.CHKI TT  ***"  <196> 

2005  PRINT"  CDOWN J2EWEGUNG  MIT  £JJRSORT ASTEN 

"  <217> 

2010  PRINT"  CDOWN>üARKIEREN  MIT  <B£ß££.>"  <033> 

2015  PRINT"  CDOWN  JZURUECK  MIT  <110> 

2017  PRINT" CDOWN >MEI TER  MIT  XASTE"  <01 1> 

2020  POKE  198,0: WAIT  19B,1:GET  A$  <166> 

2030  DX=(RE-LI)/319:DY= (OB-UN) /199  <036> 

2040  SYS  Ml : POKE  2040,13:POKE  2041,14  <173> 

2050  PX=24: PY=50  <040> 

2060  POKE  VC, PX: POKE  VC+1 ,PY  <093> 

2070  POKE  VC+39 , 1 : POKE  VC+40,1  <054> 


2080  POKE  VC+21 , 1 : Q^=" " 

2090  GET  A$: IF  A$=" "THEN  2090 
2095  IF  A*=Q*THEN  SP=3 

2100  IF  A$="«-"THEN  POKE  VC+21,0:SYS  M0:  RET 
URN 

2110  IF  A$= " CDOWN J " AND  PY<249  THEN  PY=PY+S 
P: GOTO  2160 

2130  IF  A$=" CUP >" AND  PY>50  THEN  PY=PY-SP:G 
OTO  2160 

2140  IF  A$=" CRIGHT>"AND  PX<342  THEN  PX=PX+ 
SP: GOTO  2160 

2150  IF  A$="  CLEFTVAND  PX>24  THEN  PX=PX-SP 
: GOTO  2160 

2155  IF  A*="  "THEN  2230 

2160  IF  PX<256  THEN  POKE  VC, PX: POKE  VC+16, 
0: GOTO  2210 

2200  POKE  VC,PX— 256: POKE  VC+16, 1 
2210  POKE  VC+l.PY 

2220  Q$=A*:SP=1: IF  PEEK(19B)=0  THEN  Q$=,,n 
2225  GOTO  2090 
2230  I X=PX: I Y=PY 
2240  PX=320:PY=229:SP=1 

2250  POKE  VC+2,PX— 256: POKE  VC+16 , PEEK (VC+ 1 
6) OR  2: POKE  VC+3,PY:P0KE  VC+21 , 3: Q*=" 

2280  GET  A$: IF  A$=""THEN  2280 
2285  IF  A*=Q*THEN  SP=3 

2290  IF  A*="«-"THEN  POKE  VC+21, 0:  SYS  M0:  RET 
URN 

2300  IF  A$=" CDOWN>"AND  PY<229  THEN  PY=PY+S 
P: GOTO  2350 

2310  IF  A*="CUP}"AND  PY>IY-18  THEN  PY=F'Y-S 
F':  GOTO  2350 

2320  IF  A$=" CRIGHT>"AND  PX<320  THEN  PX=PX+ 
SP: GOTO  2350 

2330  IF  A$=" CLEFT>"AND  PX>IX-20  THEN  PX=PX 
-SP: GOTO  2350 
2340  IF  A*="  "THEN  2440 

2350  IF  PX<256  THEN  POKE  VC+2,PX:P0KE  VC+1 
6, PEEK (VC+16) AND  1 : GOTO  2410 
2400  POKE  VC+2, PX— 256: POKE  VC+16 , PEEK (VC+1 
6)  OR  2 
241  ?  f  OKE  VC+3 ,  PY 

2415  Q$=A$:SP=1: IF  PEEK(198)=0  THEN  Q*="" 
2420  GOTO  2280 
2440  RE=LI+ (PX— 1 ) *DX 
2450  LI=LI+ ( I X— 24) *DX 
2460  UN=OB— (PY— 30) *DY 
2470  QB=OB— ( I Y— 50 ) *DY 
2520  POKE  VC+2 1,0: SYS  M0 

2530  PRINT"  CCLR,  DOWN>***  nu_5_5.C_HHI.T_T  ***" 
2540  PRINT"  CDOWNJL.INKER  BAND C2SPACE > :  " ;  L I 
2550  PRINT" CDOWN JBECHTER  BAND  : "  ;  RE 
2560  PRINT" CDOWN JMNTERER  BAND  : " ; UN 
2570  PRINT"  CDOWN)- OBERER  BAND C2SPACEJ : " ; OB 
2580  GOTO  1100 
2990  REM  ANSEHEN 

3000  PRINT"  CCLR, DOWN>***  HNAEHEH  ***" 

3010  PRINT" CDOWNJfARBEN  =  QJNKTIONST ASTEN" 
3020  PRINT"  CDOWN  JZURUECK  MIT 
3023  PRINT"  CD0WN5MEITER  MIT  JEASTE" 

POKE  198 ,0: WAIT  19B,1:GET  A* 

SYS  Ml 

GET  A$:IF  A*=""THEN  3050 
IF  A*="+"  THEN  SYS  M0: RETURN 
IF  A$= " CF 1 > " THEN  POKE  C0 , (PEEK ( C0 ) + 1 ) 
AND  15: SYS  SC 

IF  A$= " CF3 > " THEN  POKE  CI , (PEEK (CI ) +1 ) 
AND  15: SYS  SC 

IF  A*=" CF5>"THEN  POKE  C2 , (PEEK ( C2) + 1 > 
AND  15: SYS  SC 

IF  A*="<F7>"THEN  POKE  C3, (PEEK (C3) +1 ) 
AND  15: SYS  SC 
GOTO  3050 
REM  SPEICHERN 

PRINT"  CCLR, DOWNJ***  5_PTL1.CJLE.KK  ***" 
INFUT" CDOWN JMAME  DES  BILDES" ; NBT 
IF  LEN (NBf ) >12  THEN  NB*=LEFT$ (NBi , 12) 
4030  NB$=NB$+" . PIC" 

4040  FOR  1=0  TO  LEN (NB# ) — 1 

POKE  BN+ I , ASC ( M I D$ ( NB$ ,1+1,1) ) 

NEXT 

POKE  BN+16,LEN(NB*) 

SYS  SA 

OPEN  1,8,15: INPUT#l,A,Bt,C,D: CLOSE  1 


3030 

3040 

3050 

3055 

3060 

3070 

3080 

3090 

3100 

3990 

4000 

4010 

4020 


4050 

4060 

4070 

4080 

4090 


<254> 

<  143> 
<203> 

<  144> 
<008> 
<009> 

<  157> 

<  170> 
<083> 

<222> 

<  104> 

<  175> 

<  1 05  > 

<  174> 
<241  > 
<246> 


<059> 

<077> 

<  137> 

<078> 

<069> 

<  1 1 8  > 

<209> 

<  169> 
<030> 

<071  > 

<245> 

<249> 

<046> 

<  1 15> 
<203> 
<047> 
<071  > 
<235> 
<233> 
<218> 

<  106> 
<205> 

<  165> 

<  1 26  > 
<252> 

<  1 7  6  > 
<073> 

<  098  > 

<  099  > 
<001  > 

<  1 60  > 
<237> 

<  1 15> 
<078> 

<  1 88  > 
<091  > 

<251  > 

<  154> 

<  168> 
<185> 
<231  > 
<086> 
<245> 
<244 > 

<  1 78> 

<  0 1 9  > 
<004  > 
<203> 
<054  > 
<026> 


Listing  2.  Den  Basic-Teil  geben  Sie  mit  dem  Checksummer  ein.  Beachten  Sie  dazu  die  Hinweise  auf  Seite  54. 
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C  DOCH' 

IJI\I  II  II  I 


4100 

PRINT"  <DGWN>";A;B* 

<  173> 

5650 

F*=F*+X* 

<  1 05  > 

4110 

WAIT  198 , 1 : POKE  198,0: RETURN 

<243> 

5660 

NEXT 

<0B2> 

4*790 

REM  LADEN 

<088> 

5670 

IF  RIGHT* (F*, 4) =" . PIC"THEN  PRINT  F* 

<194> 

5000 

PRINT"  CCLR,  DOWN >***  LJUJE»  ***" 

<081  > 

5690 

NEXT 

<  1 12> 

5010 

INPUT"  <DOWN)J4AME  DES  SILDES" ; NB* 

<070> 

5700 

IF  TT<  >0  THEN  5530 

<000> 

5020 

IF  LEN (NB*) >12  THEN  NB*=LEFT* (NB* , 12) 

<229> 

5710 

CLOSE  15: CLOSE  10 

<015> 

5030 

NB*=NB*+" .PIC" 

<220  > 

5720 

WAIT  198 , 1 : POKE  198,0:RETURN 

<073> 

5040 

FÜR  1=0  TO  LEN (NB*) -1 

<  162> 

6000 

REM  SPRITES 

<044> 

5050 

POKE  BN+I,ASC (MID* (NB*, 1+1,1) ) 

<  003  > 

6010 

DATA  255,255,255,192,0,0, 192,0,0,192, 

5060 

NEXT 

<244  > 

0,0 

<232> 

5070 

POKE  BN+ 1 6 , LEN ( NB* ) 

<  187> 

6020 

DATA  192,0,0, 192,0,0,192,0,0,192,0,0 

<020> 

5080 

SYS  LO 

<206> 

6030 

DATA  192,0,0,192,0,0,192,0,0,192,0,0 

<030> 

5090 

OPEN  1 ,8, 15: INPUTM1 , A, B*,C, D: CLOSE  1 

<010> 

6040 

DATA  192,0,0,192,0,0,192,0,0,192,0,0 

<040> 

5100 

PRINT" CDQWN>":A:B* 

<  155> 

6050 

DATA  192,0,0,192,0,0,192,0,0,192,0,0, 

5110 

POKE  785,7 

<002> 

192,0,0 

<243> 

5120 

POKE  51208, XI :LI=USR(0) 

<034> 

6060 

DATA  0,0, 3, 0,0, 3, 0,0, 3, 0,0, 3 

<047> 

5130 

PRINT"  <DOWN>i.INKER  £AND <2SPACE > :  ";LI 

<  15B> 

6070 

DATA  0,0, 3, 0,0, 3, 0,0, 3, 0,0, 3 

<057> 

5140 

POKE  51208, XA:RE=USR(0) 

<246> 

6080 

DATA  0,0, 3, 0,0, 3, 0,0, 3, 0,0, 3 

<067> 

5150 

PR  I  NT  "  <DOWN  >  RJECHTER  JLAND  :  "  ;  RE 

<01  1> 

6090 

DATA  0,0, 3, 0,0, 3, 0,0, 3, 0,0, 3 

<077> 

5160 

POKE  5 1 208 , Y I : UN=USR ( 0 ) 

<  125> 

6100 

DATA  0,0, 3, 0,0, 3, 0,0, 3, 0,0, 3 

<087> 

5170 

PRINT" <DOWN> UNTERER  fiAND  :  "  :  UN 

<235> 

6110 

DATA  255,255,255 

<  161  > 

5180 

POKE  51208,YA:OB=USR(0) 

<  143> 

6990 

REM  EFFEKT 

<098> 

5190 

PR I NT " {DOWN  J  OBERER  £AND {2SPACE ) : " ; OB 

<  206  > 

7000 

PRINT" <CLR,DOWN>***  TJLF.EKT.  ***" 

<042> 

5200 

TM‘/.=PEEK(TM) 

<  049  > 

7010 

PRINT" CDOWNJEARBEN  =  £UNKT I ONST ASTEN " 

<034> 

5210 

PRINT"  {DOWN  MAXIMALE  HEFE:  "  j  TM7. 

<086  > 

7020 

PRINT"  <DDWN>ZURUECK  MIT 

<035> 

5220 

POKE  198,0: WAIT  198,1: POKE  198,0 

<243> 

7023 

PRINT" <DQWN>MEI TER  MIT  IASTE" 

<  193> 

5230 

POKE  785,0: RETURN 

<080  > 

7030 

POKE  198,0: WAIT  198,1:GET  A* 

<096> 

5490 

REM  DIRECTORY 

<209> 

7040 

SYS  Ml 

<173> 

5500 

PRINT"  {CLR.DOWNJ***  J>.I.R£.C_T.O-R Y.  ***<DOW 

7050 

IF  A*=" <F5>"THEN  POKE  C2 , ( PEEK ( C2 >  + 1 ) 

N>  “ 

<065> 

AND  15 

<034> 

5510 

POKE  198,0: OPEN  15 , 8 , 15, " 10" : OPEN  10, 

7060 

CP=PEEK (C3) : POKE  C3, PEEK (C2) : POKE  C2, 

3,2, 

<054> 

PEEK (CI ): POKE  CI, CP 

<099> 

5520 

TT=18: SS= 1 

<  1 17> 

7070 

GET  A*:IF  A*="t-"THEN  7140 

<137> 

5530 

PRINTM15, "B— R" ; 2; 0;  TT :  SS 

<076> 

7080 

IF  A*= " <F 1 > " THEN  POKE  C0, (PEEK (C0) +1 ) 

5540 

PR I NT #15," B— P " ; 2 ; 0 

<254> 

AND  15 

<023> 

5550 

GET#10,X*:IF  X*=""THEN  X*=CHR*(0) 

<029> 

7090 

IF  A*= " <F3 > " THEN  POKE  CI , (PEEK (CI ) +1 ) 

5560 

TT=ASC ( X* ) 

<  132> 

AND  15 

<  182> 

5570 

GET#10,X*:IF  X*=""THEN  X*=CHR*(0) 

<049> 

7100 

IF  A*=" <F5>"THEN  POKE  C2, (PEEK (C2) +1 ) 

5580 

SS=ASC (X*) 

<  1 40  > 

AND  15 

<084> 

5590 

FGR  Q1=0  TO  7 

<  1 42> 

7110 

IF  A*=" <F7>"THEN  POKE  C3 , (PEEK (C3) +1 ) 

5600 

PR I NT #15, " B— P " ; 2 ; Q 1 *32+5 

<  1 56  > 

AND  15 

<243> 

5610 

F*="" 

<069> 

7120 

SYS  SC 

<078> 

5620 

FOR  Q2=0  TD  15 

<032> 

713«  TO  7060 

<  196> 

5630 

GET#10 , X* : IF  X*=""THEN  X*=CHR*(0) 

<  109> 

7140 

SYS  M0: RETURN  ... 

<235> 

5640 

IF  ASC (X*) =160  THEN  Q2=16:G0T0  5660 

<071  > 

6  64 

'er  Listing  2.  (Schluß) 

VIC 

FAC 

ARO 

CMROUT 

Dl  V 

SUB 

BTTENFAC 

FAC NAH G 
2EI0&UB 
2EI0ADD 
ZEIGMULT 
KONNARG 
KONNFAC 
FACNKON 
CHS ION 
FILEPAR 
PILENAM 
SAVE 
LOAD 
|»t«  VAR 
ZEIG! 

ZE 102 

ZEILE 

SPALTE 

BYTE 

POS 

TIEFE 

TIEFENAX 

DX 

DY 

CX 

Ct 

XQUAD 

YQUAD 

XUERT 

YWERT 

XMAX 

XHIN 

YMAX 

YHIN 

FILENAHE 

FARBTAB 


53248 
97 
105 
»FFD2 

•  BBI2 
•B833 
SB3A2 
•BCOC 
•B85G 
«B867 
SBA2& 
SEA8C 

•  BBA2 
SBBD4 

•  BFB4 
«FFBA 
»FFBD 
•FFD8 
«FFD5 

ABLE  H» 
•A4 
«A6 
•CFOO 
•CF01 

•CF02 
•CF03 
»CF04 
•3F34 
«CF90 
•CF30 
«CF40 
•CF60 
87 
247 

•CF  70 
•CF80 

•3F45 
•3F40 
•3F4F 
•3F4A 
•CFAO 
•CEOO 


»** 

•  VIDEOCHIP 

{  FL  I ESSKOMMA  AKKU 

! FL  I ESSKONHA -  AKKU  H2 

{EIN  ZEICHEN  AUSOEBEN 

{FAC-ARG/FAC 

I FAC* ARO -FAC 

{BYTE  IN  Y  NACH  FAC 

{ARO-FAC 

(FAC* (ASY) -FAC 

{FAC-<A/Y» ♦FAC 

|FAC*<AJYMFAC 

•  ARG* lA/Y » 

|FAC«(A/Y> 

I IX/YI-FAC 
{FAC- -FAC 

(FILEPARAMETER  SETZEN 
*, FILENAME  UE3ERGEBEM 
{SPEICHERN 
(LADEN 

{UNI VERSALZE 1 OER 

{AKTUELLE  ZEILE 
{AKTUELLE  SPALTE 

•  ENT  MAC L  T  XMHCR  4  FUNK  IC 
{ZAEHLCR  FUER  4  PUNKTE  «0  Bl»  3» 
{AKTUELLE  TIErE 

{MAXIMALE  TILFE 
{SCHRITTWEITE  REALTEIL 
{SCHRITTWEITE  IMAOINAERTEIL 
{REALTEIL  AKTUELLER  BILDSCHI RMPUrIK T 
{ DTO.  IMAOINAER 
(XWLR TAXWERT 
I YWERT#>  WERT 

{MOMENTANER  WERT  DER  FOLGE  REALTEIL 

( DTO»  IMAOINAER 

{RECHTER  RAND 

»LINKER  RAND 

{OBERER  RAND 

{UNTERER  RAND 

{VON  BASIC  GEPOKED 

1  TABELLE  TIEFE  MOD  3  *1 


USR1N 

LDY 
3  MP 

ilSROUT  LDA 

LDY 

JMP 

I SPRUNG V ABELLE 

JMP  NULT ION 
JMP  MULTI OFF 
JMP  SETCOL 


MCXMIN 

*>XMIN 

FACNKON 

M<XWIN 

M  >XMIN 
KONNFAC 


(UEBERGABE  DER  REALZAHLEN  VOM  BASIC 


RE AL ZAHLEN  AN  BASIC  2URUECK 


COLO 

COLI 

C0L2 

C0L3 

CLRSCR 


LI 


JMP  BEGIN 
JMP  SAVEPIC 
JMP  LOADPIC 
JHP  CLRSCR 

. BYT  O  { FARBEN 

-BYT  7 
.BYT  10 
.BYT  2 

LDA  40  S GRAFIK  LOL SC MEN 

STA  ZCZSl 

LDA  M*20 

STA  ZEI01 *1 

LDY  HO 

LDA  HO 

STA  (ZEIGD'Y 

INY 

BNE  LI 
INC  ZE IG1 • I 
LDA  M»40 
CMP  ZEIOl ♦ 1 
BNE  LI 
RTS 


SETCOL 


WAIT 


L2 


LDA  MO  (FARBEN  SETZEN 

STA  53280 

LDA  COLO 

STA  33281 

LDA  COLI 

ASL  A 
ASL  A 
ASL  A 
ASL  A 
ORA  C0L2 
LDX  MO 
STX  2EI01 
STX  ZEIG2 
LDX  *4 
STX  ZEIG1 ♦ 1 
LDX  N«D8 
STX  ZE1G2* 1 

LDX  VIC+18  (WARTEN  AUF  STRAHL DURCHLAUF 

CPX  M58 

BNE  WAZ  T 

LDX  VIC*17 

BMI  WA J  T 

LDY  MO 

LDX  MB 

STA  <  ZE IG1 ) , Y 
PHA 

LDA  C0L3 

STA  (ZEIG21.Y 

PLA 

INY 

BNE  L2 
INC  ZEZGl • 1 
INC  ZEIG2* 1 


Listing  3.  Das  Source-Code-Listing  des  Apfelmännchens 


CPX  ZEIGl*l 
BNE  L2 
RTS 


NULT ION  LDA 
ORA 
STA 

LDA 

ORA 

STA 

LDA 

ORA 

STA 

JSR 

RTS 

SETBYTE  LDA 
AND 
LSR 
LSR 
TAX 
LDA 
STA 
I  NX 
LDA 
•  TA 
LDA 

AND 

CLC 

ADC 

STA 

FCC 

INC 

SETBYT1  LDA 
ASL 

ASL 

ASL 

BCC 

INC 

SETBYT2  CLC 
ADC 
STA 
BCC 
INC 

SETBYT2  LDY 
LDA 
STA 

RTS 


VIC* 17  {MULTICOLOUR  EIN 

MSOOIOOOOO 

VXC*17 

VIC-24 

HX00001000 
VIC  *24 
VIC  *22 
N%000 10000 
VIC  *22 
SETCOL 

ZEILE  {4  PUNKTE  (-1  BYTE  I  SETZEN 
M%1 llllOOO 
A 
A 

ZCXLTAB.X 

ZEIG1 

ZEILTAB.X 

2CXG1*1 

ZEILE 

■lOOOOO 1 1 1 

ZEIOl 

ZEIG1 

SETBYTl 

ZCX01«1 

SPALTE 

A 

A 

A 

SETBYT3 

ZEI01*1 

ZEI61 
ZEIOl 
SETBYT2 
ZEIOl* 1 

MO 

BYTE 

<ZC1G1).Y 


FACSARG 


LDA 

EOR 

STA 

LDA 

RTS 


ARS *3  S  VORZE  1  CHENVf.RGl 

FAC*5 

ARG  •  A 

FAC 


VOM  FAC  UND  ARG 


MAKE  TAB  LOX  MO 


{FÄRB TABELLE  ANLEGEN 
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LDY  Ml 

L 1 5  STA  XUERT , Y 

LDY  MJDX 

STA  FARBTAB, X 

DEY 

LDX  N (CX 

INY 

CPY  N4 

BPL  L 15 

ITER1  INC  TIEFE 

LDY  M  >CX 

JSR  FACNKON 

BNE  MT  1 

LDY  Ml 

LDA  TIEFEMAX 

CMP  TIEFE  1 -MAXIMALE  TIEFE  ? 

INC  POS 

LDA  POS 

BNE  LAO 

LPA  MO  i PUNKTFARBE 

BE9  APFEL  1 

ITER4  LDA  M«:XWERT  >  XQUAD*  XWERT  *  XWERT 

APFEL I  STA  POS 

MULT  I OFF  LOA  V IC*22  ",  MULT  ICOLOUR  AUS 

JSR  KONNFAC 

INC  SPALTE 

STA  VIC*22 

LDY  M>XWERT 

CMP  N40 

AND  M%U011UI 

LDX  II  XQUAD 

JMP  ITERAT 

LDA  V/IC*  2A 

JSR  FACNKON 

STA  SPALTE 

STA  VIC*24 

LDY  N> YWERT 

L30  LDA  XMIN,Y 

STA  53281 

LDA  M< YWERT 

DEY 

STA  53230 

JSR  ZEIGMULT 

INC  ZEILE 

JSR  CHROUT 

LDY  MO 

CMP  M200 

LDA  M XQUAD 

LDA  M<  DY  JCY-CY-DY 

JSP  MAKETAB 

LDY  M  >XMIN 

JSR  KONNFAC 

LDA  FAC 

CMP  NS84  t "SUMME  GROESSER  8  ? 

LDA  M<Cr 

LDY  M  >CY 

LDX  TIEFE 

LDX  M<CY 

JSR  ZEIGSUB 

JSR  FACNARG 

LDA  FÄRBT AB, X  SPUNKTFARoE 

JMP  PLOT 

ITER3  LDA  «<YUEBT  i YUERT=XUERT»YUER T*2-CY 

JSR  FACNKON 

JMP  ITERAT 

LDY  N ; YWERT 

ENDAPFEL  CLI 

JSR  FACSARÖ 

LDA  «OCWERT 

LDX  NCDX 

LDY  n;dx 

LDY  M  >XUERT 

JSR  ZEl OMULT 

JSR  APFEL 

JMP  MULTI OFF 

LDA  NCYMXN  J DY« ( YMAX-YMIN) / 199 

BES  I TER2 

SAVEPIC  LDX  M8  • SPEICHERN 

JSR  KONNFAC 

ITER2  LDA  M<CY 

LDA  FILENAME *16 

LDY  M  > YMAX 

JSR  ZEIGSUB 

LDY  M  >F I LENAME 

JSR  FACNARG 

LDY  N199 

JSR  BYTENFAC 

JSR  FACSARG 

LDX  «K  YWERT 

LDY  M> YWERT 

JSR  FACNKON 

LDY  MO  ;XWERT=XQUAD-YQUAD-CX 

LDA  NO 

STA  ZEIG1 

LDA  N*20 

STA  ZE1G1+ 1 

LDX  M<DY 

JSR  KONNFAC 

LDX  N*56 

JSR  FACNKON 

LDA  HXQUAD 

JSR  ZEIGSUB 

JMP  SAUE 

L 13  LDA  XMIN.Y 

LDY  Ml 

LDA  YMAX, Y 

JSR  ZEIGSUB 

LDA  FILENAME+16 

DEY 

5PL  L13 

LDA  MO 

LDX  M< XWERT 

m  *>*uert 

JSR  FACNKON 

LDY  M>FI LENAME 

JSR  FILENAM 

LDA  MO 

STA  ZEILE 

STA  SPALTE 

PLOT  ASL  BYTE 

ASL  BYTE 

JMP  LOAD 

RTS 

ITERAT  LDA  MO 

ORA  BYTE 

STA  BYTE 

ZEILTAB  .WOfi  8192,8512,8832,9152,9472,9792 

ITERAT1  LDA  MO 

LDY  #>CX 

.WOR  12032, 12352, *3180, 12992,13312, 13632 

LDY  N4 

LDA  M<DX 

.UOR  15872 

Listing  3.  (Schluß) 

Block  Out 

Eine  besondere  Version  des  bekannten  »Break  Out«  liegt  Ihnen  mit  diesem 
Spiel  vor,  bei  der  Sie  gleich  auch  die  Trainer-Pokes  bekommen. 


Bei  Block-Out  geht  es  darum,  einen  Ball  mit  einem  Schläger 
möglichst  oft  zu  reflektieren,  um  sechs  Reihen  von  Ziegelstei¬ 
nen  zu  löschen.  Dabei  gibt  es  für  jeden  Stein  der  untersten 
zwei  Reihen  einen  Punkt,  für  jeden  Stein  der  mittleren  zwei  Rei¬ 
hen  zwei  Punkte  und  für  jeden  Stein  der  obersten  zwei  Reihen 
drei  Punkte.  Zusätzlich  erhält  man  einen  Bonus  von  22  Punk¬ 
ten  für  einen  total  abgeräumten  Level.  Vor  dem  Spiel  kann  man 
den  Startlevel  sowie  die  Ballzahl  mittels  F3  und  F5  einstellen. 
Mit  Fl  oder  Druck  auf  den  Feuerknopf  des  Joysticks  (Port  2) 
beginnt  das  Spiel.  Während  des  Spiels  besteht  die  Möglich¬ 
keit,  durch  Drücken  einer  Taste  den  Ablauf  zu  unterbrechen. 
Ein  weiterer  Tastendruck  oder  der  Feuerknopf  heben  die  Pau¬ 
se  wieder  auf. 

Wem  die  Geschwindigkeiten  der  Level  nicht  angenehm  sind, 
muß  nicht  verzweifeln,  sondern  kann  die  Konstanten  in  den 

84  Q3Ö? 


Speicherstellen  4124  bis  4132  verändern,  wobei  ein  hoher 
gePOKEter  Wert  ein  langsames  Spiel  bedeutet.  Möglich  sind 
Werte  zwischen  6  und  255;  spielerisch  interessant  sind  aber 
nur  Werte  zwischen  8  und  50.  Wer  selbst  bei  langsamer  Ge¬ 
schwindigkeit  noch  Probleme  hat,  mit  den  vorhandenen  neun 
Bällen  einen  Level  abzuräumen,  der  kann  zu  folgenden  Hilfs¬ 
mitteln  greifen: 
poke  3163,234: 
poke3218,12 
poke  4096, Ballzahl 
poke  3850,12: 
poke  3853,12 
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verhilft  zu  unendlich  vielen  Bällen 
verhilftzu  endlich  vielen  Bällen 

verhindert,  daß  das  Spiel  schneller 
wird,  wenn  ein  Level  abgeräumt  ist. 


PROBRAMM 

:  BLOCK* 

0801  11BE 

0AF1 

0AF9 

: 

85 

10 

FC 

D4 

38 

A9 

E9 

72 

D4 

8D 

85 

ED 

FE 

0F 

CA 

AE 

4B 

0E 

0DF9 

0E01 

BC 

8E 

Dl 

D3 

0F 

0F 

A2 

4C 

01 

53 

8E 

0B 

D2 

4C 

0F 

6B 

74 

5C 

0801 

- 

26 

08 

CI 

07 

9E 

32 

30 

38 

29 

0B01 

0B09 

s 

E4 

60 

0F 

A9 

BD 

01 

1B 

BD 

10 

27 

8D 

D0 

05 

8D 

DC 

28 

7B 

AF 

0E09 

0E11 

5 

0D 

91 

AD 

0D 

00 

A2 

D0 

00 

ED 

86 

02 

FD 

D0 

86 

4C 

FE 

D2 

42 

0809 

: 

38 

3A 

12 

42 

4C 

4F 

43 

4B 

0E 

0B11 

: 

D0 

A9 

DC 

8D 

01 

D0 

A9 

AC 

35 

0E19 

AD 

02 

D0 

38 

E9 

11 

AA 

90 

F5 

0811 

: 

AB 

4F 

55 

54 

20 

28 

43 

29 

E6 

0B19 

: 

8D 

00 

D0 

A9 

19 

8D 

02 

D0 

B7 

0E21 

09 

AD 

10 

D0 

29 

02 

F0 

02 

89 

0819 

: 

20 

52 

4F 

4C 

AF 

20 

4C 

49 

7F 

0B21 

: 

A9 

9E 

8D 

03 

D0 

A9 

00 

8D 

53 

0E29 

: 

38 

04 

18 

BA 

6A 

4A 

4A 

85 

E8 

0821 

: 

45 

47 

45 

52 

00 

00 

00 

A9 

F9 

0B29 

10 

D0 

60 

A2 

0A 

BD 

D9 

0F 

22 

0E3 1 

FD 

AD 

03 

D0 

38 

E9 

32 

29 

CE 

0829 

: 

00 

8D 

20 

D0 

8D 

21 

D0 

8D 

52 

0B31 

: 

9D 

CE 

0F 

CA 

10 

F7 

20 

6D 

6F 

0E39 

F8 

BD 

E6 

0F 

A2 

05 

A5 

FD 

78 

0831 

: 

15 

D  0 

A9 

EA 

A2 

31 

78 

8D 

27 

0B39 

0A 

20 

0A 

0B 

60 

A9 

20 

8D 

26 

0E41 

6D 

E6 

0F 

85 

FD 

A5 

FE 

69 

72 

0839 

: 

15 

03 

8E 

14 

03 

58 

A9 

15 

BA 

0B41 

: 

04 

D4 

AD 

IE 

D0 

F0 

03 

4C 

18 

0E49 

00 

85 

FE 

CA 

D0 

F  0 

18 

69 

EC 

0841 

: 

8D 

18 

D0 

A9 

80 

8D 

91 

02 

02 

0B49 

: 

6E 

0D 

AD 

1F 

D0 

F0 

03 

4C 

C6 

0E51 

04 

85 

FE 

C9 

05 

F0 

10 

C9 

BC 

0849 

A9 

01 

8D 

86 

02 

20 

44 

E5 

A5 

0B51 

: 

13 

0E 

AD 

00 

DC 

C9 

7F 

F0 

D3 

0E59 

04 

D0 

09 

A5 

FD 

C9 

BE 

90 

07 

0851 

: 

A9 

0F 

85 

D3 

20 

6C 

ES 

A2 

A0 

0B59 

: 

4B 

A8 

29 

04 

D0 

22 

AC 

00 

94 

0E61 

03 

4C 

6E 

0E 

4C 

53 

0B 

A5 

BF 

0859 

00 

BD 

25 

10 

20 

D2 

FF 

C9 

AF 

0B61 

: 

D0 

88 

8C 

00 

D0 

AD 

10 

D0 

F5 

0E69 

FD 

C9 

CB 

B0 

F7 

A5 

FD 

29 

8A 

0861 

: 

0D 

D0 

10 

A9 

1 1 

20 

D2 

FF 

6D 

0B69 

: 

29 

01 

F0 

0A 

C0 

FF 

D0 

34 

48 

0E7 1 

01 

D0 

08 

A5 

FD 

D0 

02 

C6 

8D 

0869 

A9 

0C 

85 

D3 

86 

FB 

20 

6C 

96 

0B71 

: 

CE 

10 

D0 

4C 

A5 

0B 

C0 

IC 

F3 

0E79 

FE 

C6 

FD 

4C 

88 

0F 

AD 

D4 

45 

0871 

: 

E5 

A6 

FB 

E8 
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85 

FB 

85 

FD 

5A 

0DB1 

: 

B0 

07 

A2 

01 

A0 

01 

4C 

F6 

DF 

10B9 

2E 

2E 

2E 

20 

33 

20 

50 

4F 

A2 

0AB1 

: 

A5 

FC 

69 

00 

85 

FC 

38 

E9 

24 

0DB9 

: 

0D 

C9 

12 

B0 

16 

C9 

0F 

F0 

13 

10C1 

: 

49 

4E 

54 

53 

0D 

9D 

9D 

9D 

20 

0AB9 

D4 

85 

FE 

CA 

D0 

D7 

A9 

DB 

8D 

0DC1 

: 

0B 

C9 

10 

F0 

07 

A2 

02 

A0 

A2 

10C9 

: 

9D 

9D 

9D 

4C 

45 

56 

45 

4C 

DA 

0AC1 

* 

85 

FC 

A9 

04 

85 

FE 

A9 

C8 

38 

0DC9 

: 

01 

4C 

F6 

0D 

A2 

FF 

A0 

01 

FE 

10D1 

20 

46 

49 

4E 

49 

53 

48 

45 

0B 

0AC9 

85 

FB 

85 

FD 

A2 

05 

A0 

26 

8E 

0DD1 

: 

4C 

F6 

0D 

C9 

18 

B0 

07 

A2 

7D 

10D9 

: 

44 

20 

2E 

2E 

2E 

20 

32 

32 

90 

0AD1 

: 

A9 

D0 

91 

FD 

BD 

EE 

0F 

91 

B9 

0DD9 

: 

01 

A0 

01 

4C 

F6 

0D 

C9 

IC 

2B 

10E1 

: 

20 

50 

4F 

49 

4E 

54 

53 

0D 

15 

0AD9 

FB 

88 

91 

FB 

A9 

F7 

91 

FD 

99 

0DE1 

: 

B0 

07 

A2 

01 

A0 

02 

4C 

F6 

17 

10E9 

9D 

9D 

9D 

9D 

50 

52 

45 

53 

C3 

0AE1 

: 

88 

D0 

ED 

A5 

FB 

18 

69 

28 

78 

0DE9 

: 

0D 

A9 

00 

8D 

CE 

0F 

A2 

01 

6F 

10F1 

: 

53 

20 

46 

49 

52 

45 

20 

46 

6B 

0AE9 

85 

FB 

85 

FD 

A5 

FC 

69 

00 

75 

0DF1 

: 

A0 

02 

4C 

F6 

0D 

8E 

D0 

0F 

2B 

10F9 

: 

4F 

52 

20 

4E 

45 

58 

54 

20 

EC 
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1 

101  : 

:  42 

41 

4C 

4C 

0D 

9D 

9D 

9D 

F0 

1149  : 

:  41 

52 

45 

20 

54 

48 

45 

20 

E6 

1  191  : 

41 

53 

54 

20 

53 

43 

4F 

52 

C6 

1 

109  ; 

:  9D 

50 

52 

45 

53 

53 

20 

41 

DE 

1  151  : 

4E 

45 

57 

20 

43 

49 

41 

4D 

32 

1  199  : 

45 

20 

20 

20 

20 

20 

20 

20 

BE 

1 

111  : 

:  4E 

59 

20 

4B 

45 

59 

20 

46 

AA 

1159  : 

:  50 

49 

4F 

4E 

21 

0D 

1  1 

20 

EA 

1 1  Al  : 

20 

20 

20 

20 

20 

20 

20 

20 

Al 

1 

1  19  : 

:  4F 

52 

20 

50 

41 

55 

53 

45 

3A 

1161  : 

:  20 

20 

20 

20 

20 

50 

4C 

45 

DE 

11A9  : 

20 

20 

20 

20 

20 

48 

49 

2D 

A9 

t 

121  : 

:  13 

47 

41 

4D 

45 

20 

4F 

56 

11 

1169  ; 

:  41 

53 

45 

20 

45 

4E 

54 

45 

4C 

1181  : 

53 

43 

4F 

52 

45 

10 

01 

15 

C7 

1 

129  : 

i  45 

52 

43 

4F 

4E 

47 

52 

41 

3D 

1171  : 

:  52 

20 

59 

4F 

55 

52 

20 

49 

0F 

1 1B9  : 

13 

05 

00 

00 

00 

00 

00 

00 

4F 

t 

131  : 

:  54 

55 

4C 

41 

54 

49 

4F 

4E 

D5 

1179  : 

:  4E 

49 

54 

49 

41 

4C 

53 

2E 

CA 

1 

139  : 

:  53 

20 

21 

0D 

11 

20 

20 

20 

59 

1181  : 

:  0D 

13 

1  1 

1  1 

1  1 

1 1 

1 1 

1 1 

7E 

1 

141  ; 

:  20 

20 

20 

20 

59 

4F 

55 

20 

23 

1189  : 

:  11 

1  1 

1  1 

1  1 

1  l 

1  1 

1  1 

4C 

00 

Listing  1. 

Block 

Out 

Spiele-Trainer:  Spritekill 

»Game  Over«.  Wieder  einmal  haben  die  Gegner  gesiegt  und  Sie  erst  die 
zweite  von  zwanzig  Spielstufen  erlebt.  Die  Lösung:  Entfernen  Sie  doch  ein¬ 
fach  die  Gegner  aus  dem  Spiel.  Dabei  hilft  Ihnen  das  Programm  »Spritekill«. 


Oft  vergeht  einem  der  Spaß  an  manchen  Spielen ,  wenn  man 
20  bis  30mal  an  derselben  Stelle  wegen  dem  gleichen,  ge¬ 
meinen  Gegner  abgeschossen  wurde,  oder  wenn  man  wieder 
mal  diese  blöde  Eisenstange  berührt  hat  und  von  Tausenden 
von  Volt  angeschmort  wurde. 

Doch  das  war  einmal!  Denn  mit  »Spritekill«  können  Sie  lässig 
jeden  unerwünschten  Schuß,  jeden  noch  so  gemeinen  Geg¬ 
ner  auslöschen.  Im  Spiel  herrscht  dann  ein  wenig  Ruhe,  die 
dem  Spieler  zu  längerem  Bildschirmleben  verhilft. 

»Spritekill«  arbeitet  etwas  anders  als  die  üblichen  Spiele-Trai¬ 
ner.  Diese  entfernen  meistens  alle  Sprite-Kollisionsabfragen 
aus  dem  Spielprogramm  mit  dem  Erfolg,  daß  man  keine  Bo¬ 
nuspunkte  erhält,  weil  man  auch  nichtmit  den  brauchbaren  Ge¬ 
genständen  kollidieren  kann.  Im  schlimmsten  Falle  wird  das 
Ziel,  in  den  nächsten  Level  zu  kommen,  nicht  näher  gebracht,  —  daSr  nu  bearbeitende  Sprite 
sondern  völlig  unmöglich  gemacht,  weil  man  gar  nicht  die  not-  —  einen  Spritepuffer 
wendigen  Punkte  oder  Gegenstände  zusammenbekommt. 

Ganz  im  Gegensatz  dazu  arbeitet  »Spritekill«.  Hier  gehen  Sie 
das  gesamte  Spielprogramm  durch  und  entfernen  ganz  ein¬ 
fach  die  Ihnen  unliebsamen  Sprites.  Denn  mit  etwas,  was  Sie 
auf  dem  Bildschirm  nicht  sehen  können,  können  Sie  auch  nicht 
kollidieren!  Die  Bonusgegenstände  und  die  eigene  Figur  blei¬ 


ben  selbstverständlich  im  Spiel  drin,  vielleicht  noch  ein  paar 
einfache  Gegner,  damit  es  nicht  zu  langweilig  wird. 

Obwohl  Spritekill  ein  recht  kurzes  Maschinenprogramm  ist, 
müssen  wir  einen  DATA-Lader  (Listing  1)  und  kein  MSE-Listing 
veröffentlichen.  Dafür  ermöglicht  es  der  DATA-Lader,  »Sprite¬ 
kill«  in  beliebige  Speicherbereiche  zu  legen.  Denn  meistens 
wird  man  das  sehr  kurze  Programm  im  Bildschirmspeicher  un¬ 
terbringen  wollen,  was  die  Verwendung  des  MSEs  verbietet. 

Alle  Funktionen  von  »Spritekill«  werden  mit  insgesamt  15  Ta¬ 
sten  gesteuert,  die  alle  Autorepeat  haben.  Dadurch  fällt  es 
leicht,  auch  längere  Spritefolgen  zu  löschen. 

Zur  visuellen  Kontrolle  hat  man: 

—  die  aktuelle  Sprite-Block-Nummer 

—  die  Startadresse  des  im  Augenblick  sichtbaren  Sprites 


Tabelle  der  Tastenfunktionen: 

Taste 

Funktion 

+ 

Nächster  Spriteblock 

— 

Vorheriger  Spriteblock 

t 

16  Sprites  vor 

— 

16  Sprites  zurück 

B 

Weiterschalten  des  16-KByte-Bereichs 

M 

Umschalten  HiRes/Multi 

X 

Umschalten  zwischen  normaler/expandierter 
X-Darstellung 

Y 

Umschalten  zwischen  normaler/expandierter 
Y-Darstellung 

SPC 

Löschen  des  links  dargestellten  Sprite- 
bereichs 

C 

Kopieren  des  links  dargestellten  Sprites  in 
den  Puffer 

R 

Kopieren  des  rechten  Spriteblocks  in  den 
linken  Spriteblock 

Crsr  rechts  Erhöhen  der  Startadresse  des  links  dargestell¬ 
ten  Sprites 

Crsr  runter  Erniedrigen  der  Startadr.  des  links  dargestell¬ 
ten  Sprites 

F7 

Zurücksetzen  der  Einzelbyteverschiebungen 

Run/Stop 

Verlassen  des  Programms 

zur  Verfügung  (siehe  auch  Bild  1). 

Sämtliche  Befehle  sind  in  der  Tabelle  aufgelistet. 

Um  mit  »Spritekill«  möglichst  effektiv  und  schnell  zu  arbei¬ 
ten,  hat  sich  folgende  Strategie  durchgesetzt: 

—  Nach  dem  Starten  von  »Spritekill«  durchsucht  man  den 
Speicher  erst  in  größeren  Schritten  mit  den  beiden  Pfeil- 
Tasten. 

—  Sobald  man  ein  Sprite  erkennt,  geht  man  mit »+/— «  so  lange 
weiter,  bis  das  letzte  Sprite  kommt. 

—  Ab  da  durchsucht  man  den  Speicher  in  der  anderen  Rich¬ 
tung  und  löscht  die  ungewollten  Sprites  einfach  mit  SPACE. 

—  Zum  Schluß  drückt  man  RUN/STOP  und  startet  das  modifi¬ 
zierte  Spiel. 

Manche  Spiele  haben  ihre  Sprites  vor  dem  Programmstart 
an  anderen  Speicheradressen  liegen,  wie  beim  späteren  Ab¬ 
lauf.  Deswegen  kann  man  mit  den  Cursor-Tasten  den  Speicher 
byteweise  durchsuchen.  Sollte  man  also  nur  ein  halbes  Sprite 
oder  ein  verschobenes  Sprite  finden,  muß  man  es  mit  den 
Cursor-Tasten  vor  dem  Löschen  voll  sichtbar  machen. 
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Wie  gesagt,  ist  es  am  praktischsten,  wenn  »Sprite-Kiil«  im 
Bildschirmspeicher  steht,  weil  dieser  von  den  meisten  Spielen 
während  des  Ladens  in  Ruhe  gelassen  wird.  Wer  eine  solche 
Version  auf  Diskette  erzeugen  will,  sollte  im  DATA-Lader  als 
Startadresse  »1400«  angeben.  Will  man  dann  ein  Spiel  von 
den  Gegner  befreien,  sollte  man  folgendermaßen  Vorgehen: 
Spiel  laden,  dann  »CTRL-7«  zur  Umschaltung  auf  Dunkelblau 
(Hintergrundfarbe)  drücken,  danach  »SHIFT-CLR/HOME«. 
Jetzt  mit  »CTRL- 2«  den  Cursor  wieder  sichtbar  machen,  Spri- 


tekill  laden  und  den  SYS-Befehl  zum  Start  (1400)  vorgeben. 
Nun  können  Sie  Vorgehen,  wie  oben  beschrieben. 

Sollte  ein  Programm  mehrteilig  sein  und  einen  Autostart  ha¬ 
ben,  wird  es  kritisch.  Sie  müssen  dann  mit  einem  Monitor  die 
einzelnen  Programmteile  laden,  mit  Spritekill  durchsuchen  und 
wieder  speichern.  Bei  Original- Disketten  sollte  man  das  si¬ 
cherheitshalber  unterlassen,  da  man  durch  Speichern  auf  dem 
Original  meistens  den  Kopierschutz  zerstört  und  somit  das 
Spiel  nicht  mehr  laden  kann.  (Garry  Glendown/bs) 


0  REM  ******************* 

1  REM  *  SPRITE  -  KILL  * 

2  REM  **■*■*•**•*•***-#****•*•* 

REM  *  VON:  * 

REM  *■**-#****#**#*•#*** 
REM  *  G.  GLENDOWN  * 
REM  *•**■*■*•**■**■***■***■*■* 


REM  *  TEL. :  * 

B  REM  *  (06621 ) /734B3  * 

9  REM  •#•*•****#■*■**•**■***** 

10  PRINT" CCLR, WHITE JSPRI TEKILL" : POKE  53281 
,  0 : POKE  53280,0: PR INT "VON  GARRY  GLENDOW 
N" 

20  I NPUT " ST ARTADRESSE " ; SA*: SA=VAL ( SA* ) 

21  IT  SA >40429  AND  SA <49 152  OR  SA >527 16  OR 

SA< 1024  THEN  PR I NT " UNGUELT IG! " : GOTO  20 

29  PR INT "END ADRESSE: "SA+532: INPUT "OK?  J/N" 
;A*:IF  A*<  >" J " THEN  20 

30  IF  SA<6000  THEN  FL=1 
35  IF  FL=1  THEN  100 

40  INPUT "ABSPEICHERN  J/N”;A*:IF  A*=“J"THEN 
FL=  1 

50  FOR  T=SA  TO  SA+531:READ  ArPOKE  T,A:CH=C 
H+A: NEXT : IF  CH< >65921  THEN  PR INT "FEHLER 
! "CH: END 

51  CH=0 

60  READ  CÜ:CH=CH+CO: IF  CO=-l  THEN  200 
70  B=PEEK (SA+CO) +256*PEEK (SA+CO+1 )  :  B=B-286 
72+SA:H=INT (B/256) : L=B-H*256 
80  POKE  SA+CO, L: POKE  SA+CO+1 ,H: GOTO  60 

100  FOR  T=49152  TO  49683: READ  A:POKE  T,A:C 
H=CH+A:  NEXT :  IF  CH065921  THEN  PRINT"FE 
HLER ! "CH: END 

101  CH=0 

110  READ  CO:CH=CH+CO: IF  CO=-l  THEN  140 
120  B=PEEK (491 52+CO  >  +256*PEEK  <491 53+CO ) : B= 
B— 28672+SA : H= I NT ( B/256 ) : L=B-H*256 
130  POKE  49 1 52+CO, L: POKE  49 153+CO , H: GOTO  1 
10 

140  IF  CH022866  THEN  PRINT"FEHLER  !  "  :  END 

141  I NPUT "FILENAME";F*: OPEN  1 , 8 , 2 , F*+“ , P , W 

150  H=INT (SA/256) : L=SA-H*256: PRINT# 1 ,CHR*( 
L) CHR* (H) ; 

160  FOR  T=491 52  TO  49683: PR INT# 1 , CHR* (PEEK 
(T ) ) ; : NEXT : CLOSE  1 : OPEN  1,8,15 
170  I NPUT # 1 , A , B* , C , D : PR INT  A" , "B*" , "C" , "D: 
END 

200  IF  CH022866  THEN  PRINT"FEHLER "CH:  END 

201  IF  FL=1  THEN  300 

210  PR INT "PROGRAMM  IM  SPEICHER  VON "SA"  BIS 
"SA+531 

220  PR I NT " PROGRAMMST ART  M I T (SPACE , RVSON , SP 
ACE  >SYS " ; SA " CSPACE , RVOFF  > " 

230  END 

300  H=INT (SA/256) :L=SA-H*256 
310  INPUT-FILENAME  ";F*:OPEN  1 ,8,2,F*+" ,P, 
W":PRINT#1 , CHR* ( L ) CHR* ( H ) ; 

320  FOR  T=SA  TO  SA+531 : PRINT#1 ,CHR* (PEEK (T 
) ) ; : NEXT: CLOSE  1 : OPEN  1 ,8, 15: INPUTtl , A 
, B* , C , D : CLOSE  1 

330  PRINT  A","B*" , "C" ,"D: IF  A=0  THEN  210 
340  I NPUT" NOCHMAL  VERSUCHEN  J/N" ;A*:IF  A*< 
>" J " THEN  210 

350  OPEN  1 ,8, 15, "S: "+F*: CLOSE: GOTO  300 

32000  DATA  120,169,3,162,0,134,255,134,248 
,141,21 ,208, 141,23,208,141 ,29,208,16 

9 

32001  DATA  100,141,0,208,141,3,208,162,200 
,142,2, 208 , 206 , 40 , 208 ,141,1, 208 , 1 62 

32002  DATA  13 , 1 42 , 24B , 7 , 232 , 1 42, 249 , 7 , 32 , 6 
0,113,32,133,112,169,19,32,210,255, 1 


<  137> 

<056> 

<  1  39  > 

<  1 86  > 

<  1  4 1  > 

<24S> 

<  1  43> 
<059> 
<001> 

<  1 46  > 


<054  > 
<101> 

<094> 

<084> 

<219> 

<013> 

<007> 


< 064 > 

<  179> 

<  164> 


< 089 > 

<229> 

<  152> 

<  1 97  > 

<255> 

<  1 1 6  > 

<  134> 
<036> 

<  1 93  > 

<  127> 

<  1 1 4  > 

<  181  > 

<047> 

<237> 

<232> 

<208> 

<01 3> 


<052> 
<  1 25  > 


<  1 98  > 
<067> 


<068> 

<  232 > 


65  < 152> 

32003  DATA  255,32,102,112,165,254,32,102,1 

12,169,32,32,210,255,32,133,112,165  <023> 

32004  DATA  253,32,102,112,165,252,32,102,1 
12,32,164,112,76,169,113,169,19,32,2 

10  <252> 

32005  DATA  255,169,36,32,210,255,96,72,74, 
74,74,74,201,10,48,2,105,6,105,48,32  <013> 

32006  DATA  210,255,104,41,15,201,10,48,2,1 
05,6,105,48,32,210,255,96, 165,254,41  <040> 

32007  DATA  3,170,189,16,114,24,101,248,133 
,252, 165,254,74,74, 133,253,165,255,1 

70  < 185> 

32008  DATA  189,16,114,24,101,253,133,253,9 

6.32.133.112.160.63.120.169.53.133.1  <12B> 

32009  DATA  177,252,145,249,136,16,249,169, 
55,133,1 ,88,96,76,129,255,165,254,24  <197> 

32010  DATA  105,16,133,254,176,67,76,49,112 
,165,254,56,233,16,133,254,144,73,76  <008> 

32011  DATA  49,112,230,254,240,48,76,49,112 

,165,254,56,233,1 , 133,254, 144,54,76  <  202  > 

32012  DATA  49,112,173,28,208,73,3,141,28,2 

08,76,49,112, 173,29,208,73,3,141,29  <238  > 

32013  DATA  208,76,49,112,173,23,208,73,3,1 

41 ,23,208,76,49,112,230,255,165,255  <061> 

32014  DATA  201,4,16,3,76,49,112,169,0,133, 

255 .76.49.112.198. 255 .48.3.76.49.112  <  079  > 

32015  DATA  169,3,133,255,76,49,112,32,133, 

„  ^  1 12,32,78,113,160,63,169,0,136,145,2 

:Un^»i2  <  1 57  > 

32016  DATA  208,251,76,214,112,162,64,160,3 
,134,249,132,250,96,162,128,160,3,13 

4  <101> 

32017  DATA  249,132,250,96,32,69,113,32,164 
, 112,32,60,113,96,32,133,112,32,69,1 

13  < 128> 

32018  DATA  169,249,162,252,141,175,112,142 
,177,112,32,164,112,32,133,112,169,2 

52  < 1 7 4  > 

32019  DATA  162,249,141,175,112,142,177,112 
,32,60,113,76,49,1 12,230,248,165,248  <16B> 

32020  DATA  201,63,208,4,169,0,133,248,76,4 

9,112,198,248,165,248,201,255,208,4  <043> 

32021  DATA  169,62,133,248,76,49,112,169,0, 

1 33 , 248 ,76,49,112,32,78,113,76,49,11 

2  <  095  > 

32022  DATA  160,0,162,208,165,203,200,208,6 
,232,208,3,76,188,113,197,251 ,240,24 

1  < 121 > 

32023  DATA  133,251,160,15,185,226,113,197, 

251 ,240,6,136,16,246,76,169,113,136  <061 > 

32024  DATA  152,10,168,185,242,113,141,222, 

113. 185.243. 113.141 .223.113.76.221 . 1 

13  <221 > 

32025  DATA  7 6,49,112,40,43,54,57,36,23,25, 

28.60.3.2.7.17.63.20.214.112.221.112  <173> 

32026  DATA  190,112,202,112,233,112,244,112 
,255,1 12,10,113,42,113,156,113,126,1 

13  <  022  > 

32027  DATA  141,113,88,113,187,112,163,113, 

0,64,128,192  <031 > 

60000  DATA  47,50,60,65,73,78,83,86,89,139, 

156,165,200,212,219,231,242,253,264  <124> 

60010  DATA  275,282,289,296,299,302,314,335 

,338,341,345,348,355,358,361,364  <151> 

60020  DATA  371,374,377,380,395,410,417,420 

, 423 , 438 , 449 , 459 , 466 , 469 ,472,475, 47B  < 238  > 
60030  DATA  498,500,502,504,506,508,510,512 

,514,516,518,520,522,524,526,-1  <182> 


©  G4-er 


Listing  1.  Der  DATA-Lader  zu  »Spritekill« 
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Tips  &  Tricks 
für  Anfänger 


Funktionsweise 

Wie  funktioniert  Screen-Dump,  wo  es  doch  nur  100  Byte 
lang  ist?  Am  besten  ist  das  an  folgendem  Beispiel  zu  erken¬ 
nen:  Wir  nehmen  eine  Gruppe  von  zwölf  Elementen.  Wie  greift 
man  nun  nacheinander  auf  alle  zwölf  Elemente  zu,  so  daß  kei¬ 
ne  Reihenfolge  erkennbar  wird?  Ganz  einfach: 


und  Profis 


Wir  nehmen  eine  Zahl,  die  mit  1 2  keinen  gemeinsamen  Teiler 
hat,  zum  Beispiel  5.  Jetzt  beginnen  wir  bei  0  und  zählen  5  hin¬ 
zu.  Diese  Zahl  nehmen  wir  heraus.  Dann  zählen  wir  wieder  5 


ln  der  Rubrik  Tips  &  Tricks  können  wir 
Ihnen  diesmal  einige  Routinen  anbie¬ 
ten,  die  sich  besonders  zum  Einbau  in 
eigene  Programme  eignen. 

Screen-Dump 

Eine  Bildschirmmaske  kann  auf  viele  verschiedene  Arten  auf 
den  Bildschirm  gebracht  werden.  Die  einfachste  ist  wohl: 
FOR  I  =  0  TO  999  :  POKE  1024  -I-  I,  PEEK  (STADR  +  I)  : 
NEXT  I 

wobei  STADR  die  Startadresse  der  Maske  ist.  Doch  das  ist  zu 
langsam  und  eintönig.  Das  gleiche  Programm  in  Assembler  ist 
zirka  200mal  schneller,  aber  immer  noch  eintönig. 

Das  Programm  »Screen-Dump«  (siehe  Listing  1)  hilft  dem  ab. 
Auf  über  100  verschiedene  Arten  kann  hiermit  das  oben  ge¬ 
nannte  Programm  ablaufen  (das  heißt  100  verschiedene  Rei¬ 
henfolgen),  von  denen  einige  verblüffen,  fast  alle  aber  besser 
»aussehen«  als  dieses  Programm.  Auch  die  verstellbare  Ge¬ 
schwindigkeit  ermöglicht  interessante  Veränderungen. 

Die  Handhabung  ist  denkbar  einfach: 

SYS  680,  Art,  Stadr.,  Geschwindigkeit 


hinzu.  Ergebnis  10.  Unser  zweites  Element.  Dann  wieder  +  5 
=  15.  Element  15  ist  nicht  vorhanden,  also  ziehen  wir  die  Ge¬ 
samtanzahl  der  Elemente  ab.  15—12=3  und  so  weiter.  Es  er¬ 
gibt  sich  die  Reihenfolge:  51038161149 
2  7  12.  Augenscheinlich  völlig  wahllos.  Es  funktioniert  immer, 
wenn  folgende  Voraussetzungen  erfüllt  sind: 

1.  Die  Additionszahl  (hier:  5)  muß  kleiner  sein  als  die  Gesamt¬ 
zahl  der  Menge. 

2.  Die  Additionszahl  darf  mit  der  Gesamtzahl  keinen  gemeinsa¬ 
men  Teiler  haben. 

Im  Screen-Dump  wird  dieses  System  mit  einer  Menge  von 
1  024  Elementen  angewandt.  Die  möglichen  Additionszahlen 
sind  somit  alle  ungeraden  Zahlen  zwischen  0  und  255. 

(Michael  Schmidt/tr) 


Pseudo-Interrupt 


Diese  Befehlserweiterung  erlaubt  es,  ein  Basic-Programm 
zu  jedem  beliebigen  Zeitpunkt  per  Tastendruck  durch  die 
Fl -Taste  unterbrechen  zu  lassen.  Es  kann  dann  in  eine  vorher 
definit  te  Basic-Routine  gesprungen  werden.  Diese  könnte 


Art:  Eine  Zahl  zwischen  0  und  127 

Stadr:  Die  Startadresse  der  Maske  geteilt  durch  256  (High¬ 
byte). 

Geschwindigkeit:  zwischen  1  und  255  verstellbar. 

Also  SYS  680,  20,  64,  8  kopiert  den  Bereich  von  1 6384  bis 
17383  auf  sehr  originelle  Weise  in  den  Bildschirm. 

Andere  »schöne  Versionen«  sind: 


Art 

Geschw. 

Art  Geschw. 

2 

1 

6 

4 

9 

4 

13 

8 

19 

2 

20 

8 

28 

8 

33 

4 

36 

10 

44 

4 

46 

20 

61 

20 

64 

4 

65 

10 

66 

4 

84 

4 

88 

2 

98 

8 

104 

4 

106 

2 

120 

20 

125 

20 

10  FOR  1=659  TO  763: READ  J: 

POKE  I , J: NEXT : P 

RI NT" CWH I TE , CLR , DOWN  JSYS 

680, ART, BLOCK, 

GESCHW I ND I GKE I T  <L I G . BLUE  > 

<004> 

20  NEW 
1000  DATA 

164,6,162,32,202, 

208,253,136,208 

<  158> 

,248 

,96,0,0,0,0,0,0,0, 

17,1,0,32,155 

<  153> 

1001  DATA 

183,134,2,32,155, 

183,134,5,32,15 

5,183,134,6,165,2,10,9 

,1,133,97,169 

<047> 

1002  DATA 

4,162,0, 134,2,133 

,3,134,4,160,0, 

177, 

4,145,2,165,2,24,101,97,133,2 

<  179> 

1003  DATA 

133,4,144,4,230,3 

,230,5,165,3,20 

1,8,208, 11,169,4, 133,3 

,  165,5,56,233 

<  102> 

1004  DATA 

4,133,5,32,147,2, 

165,2,208,211,1 

65,3 

,201,4,208,205,96 

<  195> 

Listing  1,  »Screen-Dump«,  mit  dem  Checksummer 
eingeben. 


Programm  :  pseudo-irq  9e0 1  9f  40 


9e01 

: 

ft 

89 

00 

20 

73 

00 

c9 

21 

6a 

9eB9 

: 

d0 

03 

4c 

6d 

9e 

a5 

cb 

c9 

f  5 

9el  1 

: 

40 

dB 

B6 

20 

79 

00 

4c 

e7 

d8 

9el9 

: 

a7 

c9 

04 

f0 

06 

20 

79 

00 

0b 

9e21 

: 

4c 

e7 

a7 

a5 

cb 

c9 

40 

dB 

ad 

9e29 

: 

fa 

ad 

01 

9e 

f0 

06 

20 

79 

cl 

9e31 

: 

00 

4c 

e7 

a7 

18 

a9 

03 

20 

61 

9e39 

: 

fb 

a3 

a5 

7a 

48 

a5 

7b 

48 

ef 

9e41 

: 

a5 

39 

48 

a5 

3a 

48 

a9 

75 

cl 

9e49 

: 

48 

8d 

01 

9e 

ad 

02 

9e 

85 

de 

9e51 

: 

14 

ad 

03 

9e 

85 

15 

20 

a3 

99 

9e59 

: 

aB 

4c 

ae 

a7 

a9 

04 

8d 

08 

c9 

9e61 

: 

03 

a9 

9e 

Bd 

09 

03 

a9 

75 

cc 

9e69 

: 

8d 

01 

9e 

60 

20 

73 

00 

c:9 

5c 

9e7 1 

: 

46 

f0 

07 

c9 

4a 

f0 

41 

4c 

f  4 

9e79 

: 

fl 

9e 

20 

73 

00 

c9 

31 

dB 

e5 

9eSl 

; 

34 

20 

73 

00 

c9 

4a 

dB 

2d 

2f 

9e89 

: 

20 

73 

00 

c9 

55 

dB 

26 

20 

51 

9e91 

: 

73 

00 

c9 

4d 

d0 

lf 

20 

73 

8e 

9e99 

; 

00 

c9 

50 

d0 

18 

20 

73 

00 

fc 

9eal 

S 

20 

6b 

a9 

a5 

14 

8d 

02 

9e 

89 

9ea9 

: 

a5 

15 

8d 

03 

9e 

a9 

00 

8d 

ef 

9ebl 

: 

01 

9e 

4c 

ae 

a7 

4c 

08 

af 

47 

9eb9 

: 

20 

73 

00 

c9 

42 

dB 

f  6 

20 

93 

9ec  1 

: 

73 

00 

c9 

41 

dB 

ef 

20 

73 

c3 

9ec9 

: 

00 

c9 

43 

dB 

eB 

20 

73 

00 

f  6 

9edl 

; 

c9 

4b 

dB 

el 

68 

c9 

75 

dB 

fc 

9ed9 

: 

59 

68 

85 

3a 

68 

85 

39 

68 

77 

9eel 

: 

85 

7b 

68 

85 

7a 

a9 

00 

8d 

ff 

9ee9 

: 

01 

9e 

20 

79 

00 

4c 

e7 

a7 

c2 

9ef  1 

: 

c9 

53 

f  0 

07 

c9 

43 

f  0 

lc 

34 

9ef  9 

: 

4c 

08 

af 

20 

73 

00 

c9 

46 

24 

9f  01 

s 

d0 

b3 

20 

73 

00 

c9 

31 

dB 

d6 

9f  09 

: 

ac 

a9 

75 

Bd 

01 

9e 

20 

73 

05 

9f  1 1 

: 

00 

4c 

ae 

a7 

20 

73 

00 

c9 

09 

9-f  19 

: 

46 

dB 

9a 

20 

73 

00 

c9 

31 

33 

9-f  21 

s 

d0 

93 

a9 

00 

8d 

01 

9e 

20 

cl 

9f  29 

: 

73 

00 

4c 

ae 

a7 

4a 

42 

41 

de 

9-f  31 

: 

43 

cb 

a9 

2e 

85 

22 

a9 

9f 

d9 

9f  39 

85 

23 

4c 

47 

a4 

01 

00 

96 

cb 

Listing  2.  »Pseudo-IRQ«.  Bitte  mit  dem  MSE  eingeben. 
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zum  Beispiel  den  noch  freien  Speicherplatz  oder  die  Uhrzeit 
anzeigen. 

Das  Programm  (Listing  2)  bitte  mit  dem  MSE  eingeben.  Es  liegt 
dann  im  Speicherbereich  von  40499  bis  40768.  Geladen 
wird  es  absolut  mit  LOAD  "PSEUDO-IRQ",8,1.  Da  das  Pro¬ 
gramm  im  Bereich  für  die  Basic-Variablen  steht,  muß  es  durch 
POKE  56,158:CLR  vor  Überschreiben  geschützt  werden. 
Nach  dem  Start  durch  »SYS  40541«  stehen  die  neuen  Befehle 
zur  Verfügung: 

!  Fl  JUMP  <  Zeilennummer  >  legt  fest,  in  welche  Zeile  im  Falle 
einer  Unterbrechung  durch  die  Fl-Taste  gesprungen  werden 
soll.  Tritt  der  Befehl  mehrmals  auf,  so  gilt  die  zuletzt  angegebe¬ 
ne  Zeilennummer. 

IJBACK  bewirkt  die  Fortsetzung  des  Basic-Programms  ab  der 
Stelle,  an  der  unterbrochen  wurde. 

!SF1  verhindert  Unterbrechungen.  Dies  kann  zum  Beispiel 
beim  Aufbau  einer  Grafik  oder  bei  Arbeiten  mit  der  Disketten¬ 
station  wichtig  sein. 

!CF1  läßt  gesperrte  Unterbrechungen  wieder  zu. 

(Guido  Schuhmacher/tr) 


List-Schutz  für  Basic-Programme 

Dieser  List-Schutz  ist  für  Nichteingeweihte  sehr  verblüffend. 
Die  Grundidee  dazu  stammt  aus  dem  Bericht  »Disketten-Mani- 
pulationen«  aus  64’er,  Ausgabe  6/85.  Er  wurde  jedoch  etwas 
ausgebaut,  so  daß  hier  beim  Listen  alle  Steuercodes  aktiv  wer¬ 
den.  Dies  wird  dadurch  erreicht,  daß  man  in  eine  Speicherstel¬ 
le  vor  den  Codes  die  Zahl  141  schreibt.  Um  nun  ein  Programm 
zu  schützen,  lädt  man  es  und  gibt  folgende  zwei  Zeilen  ein: 

- 64CR 

1  POKE 2067, 73: GOTO  10  <134> 

2  REM 11 A {CLR ,  3D0WN ,  YELLOW > I T  IS  NOT  ALLOWED 

TO  LIST  TH IS  PRQGRAM <BLUE>AA  <123> 


Danach  gibt  man  im  Direktmodus  POKE  2067,71  :  POKE 
2073,141  :  POKE  2118,0  :  POKE  2119,0  ein  und  speichert 
das  Programm. 

Listet  man  nun  das  Programm,  so  wird  der  Bildschirm  ge¬ 
löscht  und  der  Text  in  der  REM-Zeile  ausgegeben.  Durch  das 
künstlich  erzeugte  Basic-Programm-Ende-Zeichen  (drei  Nul¬ 
len)  wird  das  Listen  abgebrochen.  Wird  im  Programm  dann 
auch  noch  durch  POKE  788,52  die  RUN-STOP-,  und  durch 
POKE  792,193  die  RESTORE-Taste  ausgeschaltet,  kann  kei¬ 
ner  mehr  an  das  Programm.  Aufheben  läßt  sich  dieser  List- 
Schutz  nur  mit  einem  Monitor  und  mit  der  Kenntnis  der  Funk¬ 
tionsweise  des  Schutzes. 

(Thomas  Uttendorfer/tr) 


Sichere  INPUT-Routine  in  Basic 


a)  Da  die  Routine  (Listing  3)  in  Basic  geschrieben  ist,  ist  sie 
für  jeden  Programmierer  leicht  verständlich  und  abänderbar. 

b)  Der  Programmierer  kann  beim  Aufruf  der  Routine  gleich  Ort, 
mini-  und  maximale  Länge  und  die  zulässigen  Zeichen  der  Ein¬ 
gabe  festlegen. 

c)  Jedes  Zeichen  wird  gleich  bei  der  Eingabe  auf  seine  »Rich¬ 
tigkeit«  überprüft. 

d)  Es  wird  nur  die  tatsächliche  Eingabe  als  Eingabe  übernom¬ 
men  (und  nicht  noch  eventuell  Teile  der  Maske). 

e)  Es  funktionieren  noch  sämtliche  Sonderfunktionstasten 
(inst,  del,  home,  clr  und  so  weiter). 

f)  Der  Anwender  kann  das  Eingabefeld  nicht  verlassen. 

g)  Die  Routine  ist  mit  1,5  KByte  relativ  kurz. 

Benutzung  der  Routine: 

a)  Setzen  des  Parameterstrings 

b)  Aufruf  mit  gosub  60000 

c)  Übergabe  von  in$  an  gewünschte  Variable 
Der  Parameterstring: 

Er  setzt  sich  zusammen  aus: 

Stelle  1 ,2  :  Zeile  der  Eingabe 

Stelle  3,4  :  Spalte  der  Eingabe 

Stelle  5,6  :  minimale  Länge  der  Eingabe 

Stelle  7.8  :  maximale  Länge  der  Eingabe 

Stelle  9  :  Code  (siehe  weiter  unten) 

Es  ist  darauf  zu  achten,  daß  einstellige  Angaben  (zum  Bei¬ 
spiel:  3.  Zeile)  mit  03  angegeben  werden,  da  sonst  keine  klare 
Trennung  der  einzelnen  Parameter  vorgenommen  werden 
kann. 

Die  Routine  sieht  Standardwerte  für  die  minimale  und  maxi¬ 
male  Länge  und  für  den  Code  der  Eingabe  vor  (Zeile  60200). 
Diese  können  natürlich  frei  nach  eigenem  Bedarf  eingerichtet 
werden.  Entspricht  die  geforderte  Eingabe  den  Standardwer¬ 
ten,  so  braucht  der  Programmierer  beim  Setzen  des  Parame¬ 
terstrings  diese  Werte  nicht  anzugeben,  sondern  nur  noch 
Zeile  und  Spalte.  Dies  führt  natürlich  zu  einer  weiteren  Verein¬ 
fachung  (Beispiel:  pa$  =  "0510",  das  heißt  Eingabe  in  Zeile 
5  ab  Spalte  10  mit  den  Standardwerten). 

Code  (c) 

Der  Code  dient  dazu,  die  eingegebenen  Zeichen  sofort  zu 
überprüfen.  Selbstverständlich  kann  auch  er  frei  programmiert 
werden.  In  Zeile  60490  wird  entsprechend  dem  Code  in  die 
Unterprogramme  verzweigt.  Dort  wird  die  gedrückte  Taste 
überprüft.  Entspricht  sie  nicht  dem  Code,  wird  fl  auf  1  ge¬ 
setzt. 

In  der  vorliegenden  Routine  sind  Code  1  bis  4  schon  pro¬ 
grammiert,  wobei 

1  bedeutet,  daß  nur  Zahlen 

2  bedeutet,  daß  nur  Buchstaben 

3  bedeutet,  daß  alles 

4  bedeutet,  daß  nur  Kleinbuchstaben 
zulässig  sind. 

Diese  Codes  oder  auch  neue  Codes  können  spielend  leicht 
geändert  oder  neu  programmiert  werden. 


Ich  habe  bisher  immer  eine  leistungsfähige  INPUT-Routine 
in  Basic  vermißt.  Das  ging  anscheinend  nicht  nur  mir  so,  denn 
in  einigen  abgedruckten  Programmen  (zum  Beispiel  Ligatab, 
Listing  des  Monats,  3/85)  fehlt  eine  solche  Routine,  was  zu 
chaotischen  Ergebnissen  führen  kann.  (Wenn  man  zum  Bei¬ 
spiel  aus  Versehen  an  Stelle  der  Shift-Taste  die  Crsr-Down-Ta- 
ste  gedrückt  hat,  so  nützt  es  dem  Anwender  wenig,  wenn  er 
mit  der  Crsr-Up-Taste  wieder  in  das  Eingabefeld  zurückkehrt, 
weil  jetzt  der  INPUT-Befehl  die  ganze  Zeile  als  Eingabe  an¬ 
sieht.)  Deshalb  hier  eine  INPUT-Routine,  die  folgende  Vorteile 
hat: 


Funktionen  der  Sondertasten: 


CRSR  UP.CRSR  DOWN 
INST.DEL 


HOME 

CLR 

CRSR  LEFT, RIGHT 


sind  abgeschaltet 

funktionieren  innerhalb  des  Eingabefen¬ 
sters  wie  gewohnt  (Rest  der  Maske  wird 
nicht  berührt) 

springt  an  Anfang  des  Eingabefensters 
löscht  Eingabefenster  und  springt  an  den 
Anfang  desselben 

funktionieren  wie  gewohnt,  nur  Eingabe¬ 
feld  kann  nicht  verlassen  werden. 

(Karlheinz  Boss/tr) 
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Programmbeschreibung 

Variablenliste: 

pa- 

$ 

:  Parameterstring;  dient  der  Übergabe  der  Parameter 

bl  $ 

:  String,  der  nur  aus  Spaces  besteht 

in$ 

:  Eingabe 

n$ 

:  gedrückte  Taste 

ze 

:  Zeile  für  die  Eingabe 

sp 

:  Spalte,  ab  der  die  Eingabe  erfolgen  soll 

mi 

:  minimale  Länge  der  Eingabe 

ma 

:  maximale  Länge  der  Eingabe 

c 

;  Code,  welchem  die  Eingabe  entsprechen  muß 

SS 

:  aktuelle  Cursorspalte 

fl 

;  Flag,  ob  zuletzt  gedrückte  Taste  Code  entsprach 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 


INPUT  (DEMO) 

I NPUT— ROUT I NE  FÜR  VC  64 


COPYRIGHT  BY 
KARLHEINZ  BOSS 
SYLVESTER-JORDAN-STR.  11 
3550  MARBURG 
06421/13509 

POKE  53281, 09: POKE  53280,09: POKE  646,07 
PRINT  CHR*(14) 

10  REM  INPUT-ROUTINE 
20  REM 

IST  AUFGEBAUT  WIE  FOLGT: 

=  ZESPMIMAC  WOBEI 

ZE 
SP 
MI 
MA 
C 


30 
40 
50 
60 
70 
80 
90 
100 
110 
120 
125 
130 
132 
140 
150 
160 
170 
180 
190 
200 
1000 
1010 


REM  PA* 

REM  PA=F 
REM  ZE  =  ZEILE 

REM  SP  =  SPALTE 

REM  MI  =  MINDESTLAENGE 

REM  MA  =  MAXIMALE  LAENGE 

REM  C  =  CODE  WOBEI 

REM  1  =  NUR  ZAHLEN 

REM  2  =  NUR  BUCHSTABEN 

REM  3  =  ALLES 

REM  4  =  NUR  KLEINBUCHST. 

REM  5-6  =  FREI  PROGRAMMIERBAR 

REM  (  ZEILE  60490  > 

REM  PA*  MUSS  DIE  ZEILE  UND  SPALTE 
REM  BEINHALTENDER  REST  IST  HIN- 
REM  REICHEND.ES  WERDEN  DANN  DIE 
REM  STANDARDPARAMETER  IN  ZEILE 
REM  60200  ANGENOMMEN 
REM  Z.B.  PA*=" 0510" 


PRINT" CCLR>" ; 

PR  I  NT  "  CRVSON ,  2SPACE  > !NF'UT-£DUT  I  NE  C3SP 
ACEJ COPYRIGHT  BY  &.  2DSSC3SFACE, RVOFF J 


<061  > 
<067> 
<064  > 

<  193> 

<  1 57  > 

<  080  > 

<  045  > 

<  003  > 

<  090  > 
<246> 

<  090  > 
<082 > 

<  1 70  > 

<  1 24  > 

<  107> 

<  0 1 6  > 
<086> 
<022 > 
<161  > 

<  1 93  > 

<  1 63  > 
<110> 

<  1 38  > 

<  1 20  > 
<189> 
<209> 

<  023  > 
<235> 

<  1 43  > 

<  2 1 9  > 

<  104> 
<176> 

<  176> 


1020  PRINT  "UEBER  GET  WIRD  EINE  INPUT-fiOUT 
INE  SIMU-" 

1030  PRINT  "LIERT,  WOBEI  SAEMTLICHE  SONDER 
FUNKT IONS-"; 

1040  PRINT  "TASTEN  ( INST , DEL, HOME , CLR , CR , C 
L)  NOCH  " 

1050  PRINT  "FUNKTIONIEREN,  MAN  ABER  DAS  £1 
NGABEFELD" 

1060  PRINT  "NICHT  VERLASSEN  KANN.  flUSSERDE 
M  KANN  MAN"; 

AUFRUF  DER  ROUTINE  GLEICH 


1070  PRINT 
ART, 

1080  PRINT 
SIGEN 
PRINT 
PRINT 
SPACE >" ; 

1105  PRINT  " C40SPACE) " ; 

1110  PRINT  "BATUM  (  TT_rtfl3  3  )  :  C2SPACE , 6RI GHT 
, 16SPACEJ"; 


1090 

1100 


"BEIM 
MIN. 

"UND  MAX.  .LAENGE  UND  DIE  ZULAES 
2EI-": 

"CHEN  DER  EINGABE  ANGEBEN." 

"  CRVSON,  GREY  2 ,  SPACE I SP.  :  <32 


<021  > 


<  191  > 


<205> 


<  185> 


<072> 


<077> 


<  104> 


<070> 

<076> 


<  167> 
<089> 


<036> 


1120  PRINT  " C40SFACE>" ; 

1130  PRINT  "AAME  : <2SPACE,20RIGHT, 12SPACE> 
1140  PRINT  " C40SPACE > " ; 

1150  PRINT  "JLUERZEL  (MIND  2  KL.  SUCHST.)  : 

C2SPACE , 3RIGHT , 5SP ACE  > " ; 

1160  PRINT  " <40SPACE>" ; 

1170  PRINT  "ADMFUTER  : C2SPACE, 15RIGHT , 13SP 
ACE  > " ; 

1180  PRINT  " C40SPACE , RVOFF , YELLOW > " ; 

1900  REM  HIER  NUN  DIE  4  AUFRUFE  AUS 
1910  REM  VQRANGEGANGEN  BEISPIEL 
1920  REM 

2000  PA*=" 121 806061" :GOSUB  60000 :A*= IN* 
2010  PA*=" 140800202" :GOSUB  60000: B*=IN* 
2020  PA*=" 163202034" : GOSUB  60000: C*= IN* 
2030  PA*= "1812": GOSUB  60000: D*= IN* 

2040  REM 

2100  REM  DAS  WAR 'S 
2110  REM 

3000  PRINT: PRINT  "SIE  EINGABEN  WAREN  :  ";A 
* 

3010  PRINT  B* 

3020  PRINT  C* 

3030  PRINT  D* 

3040  PRINT  " <12SPACE,RVS0N, SPACE >IASTE  DRU 

ECKEN  CSPACE , RVOFF  > "  ; 

3050  GET  NJ*  :  IF  NJ*=M"  THEN  3050 
3995  PRINT" CCLR>" 

4000  POKE  2 11,0: POKE  214, 24: SYS  58640 
4010  PR I NT "LI ST 1 900—2 1 40  <  1 0SPACE > " 

4015  PRINT" CHOME>" 

4020  LIST  30-190 

29999  END 

30000  : 

31000  : 

32000  : 

33000  : 

34000  : 

60000  BL*= " C40SPACE > “ 

UP»  IN*="  " 

60100  ZE=VAL  (MI  D*  ( F'A*  ,1,2)) 

60110  SP=VAL (MI D* ( FA* ,3,2) ) 

60120  IF  LEN (PA*) =4  THEN  60200 
60130  M I  =VAL  (MI D*  (F'A*, 5, 2)  ) 

60140  MA=VAL (MID* (PA* ,7,2) ) 

60150  CO=VAL (MI D* ( PA* ,9,1)) 

60160  GOTO  60300 

60 1 90  REM****************************** 
60200  M I =0 : MA= 15: C0=3 

60210  REM****************************** 
60220  : 

60300  GOSUB  60950 
60310  POKE  204,0 

60320  GET  N*  :  IF  N$=""  THEN  60320 
60330  SS=PEEK (211) 

60340  IF  ASC(N$>=13  AND  LEN(IN*)>=MI  THEN 
POKE  204,1  :  GOSUB  63890: RETURN 
60350  IF  ASC(N$>=147  THEN  GOSUB  61000  :  GO 
TO  60320 

60360  IF  ASC (NJ) =19  THEN  GOSUB  63890  :  GOS 
UB  60950: GOTO  60320 

60370  IF  ASC (N*) =20  AND  PEEK(211)>SP  THEN 
GOSUB  61410  :  GOTO  60320 
60380  IF  ASC (N*) =157  THEN  GOSUB  61310: GOTO 
60320 

60390  IF  ASC  (N$)  =148  AND  LEN(IN$XMA  THEN 
GOSUB  6 1505: GOTO  60320 
60400  IF  ASC (N*) =29  THEN  GOSUB  61210: GOTO 
60320 

60410  IF  ASC (N$) =17  OR  ASC (N*) =145  THEN 
60320 

60420  IF  ASC (N$) =148  OR  ASC (N$) =20  OR  ASC ( 
Nt) =13  THEN  GOTO  60320 
60430  : 

604B5  FL=0 


Fortsetzung  auf  Seite  95 


<  1 04  > 

<  157  > 

<  124  > 

<  200  > 

<  144> 

<  168> 
<060> 
<252> 

<  149> 
<204> 
<085> 
<065> 
<222> 

<  058  > 
<068> 

<  132> 

<  140> 

<  136> 

<  146> 
<164> 

<  182> 

<  003  > 

<  1 88  > 

<173> 

<050> 

<000> 

<  185> 

<  1 05  > 

<  027  > 
<002> 
<242> 

<  226  > 
<209> 

<  193> 

<  209  > 

<  007  > 

<  12B> 

<243> 

<  1 2 1  > 

<  1 9 1  > 

<  125> 

<  135> 

<  153> 
<059> 
<043> 
<096> 

<  063  > 
<251  > 
<217> 
<00B> 

<  154> 
<069> 

<  135> 

<  132> 
<108> 
<165> 

<  1 7 1  > 

<051  > 

<  144> 
<222> 

<  124> 
<207> 
<202> 


Listing  3.  Die  bedienungssichere  Input-Routine  mit  eingebautem  Demo. 


90  UStä? 


Ausgabe  11 /November  1985 

64er-online.de 

64et-online.net 


,  '  V 


V, 


64'er  Extra 


64'er  Extra 

Das  64'er  Extra  ist  eine  Extra- 
Leistung  für  unsere  Leser.  Sie 
finden  hier  geballte  Informatio¬ 
nen  über  Ihren  C  64  zum  Heraus¬ 
nehmen  und  Sammeln. 

Im  64'er  Extra  3  finden  Sie  ei¬ 
ne  Übersicht  über  den  Sound- 
Chip  (SID)  und  seine  Program¬ 
mierung: 

—  Registerübersicht 

—  Notenwert-Tabelle 

—  Hüllkurven 

—  Filterung 

—  Einstellbeispiele 


F  high 

54223 

PW 

low 

54274 

PW 

high 

54275 

Steuer- 

ieg. 

54276 

AD 

54277 

SR 

54278 

r 

54294 

Filter 

Reso¬ 

nanz 

54295 

Mo¬ 

dus/ 

Laut 

54296 

Signalion 

60 

X 

X 

17/16 

10 

10 

X 

0 

IS 

Klarinette 

20 

0 

8 

65/64 

106 

135 

X 

0 

15 

Flöte 

40 

X 

X 

17/16 

128 

243 

X 

0 

15 

Oboe/Fagott 

30/10 

250 

0 

65/64 

73 

248 

X 

0 

15 

Schnarre 

5 

0 

8 

81/80 

73 

248 

X 

0 

IS 

Banjo 

30 

X 

X 

32/32 

8 

8 

so 

241 

111 

Schuß 

200 

X 

X 

129/128 

9 

9 

X 

0 

15 

Explosion 

1 

X 

X 

129/128 

13 

93 

20 

24t;  31 

Tabelle  1.  Einstellbeispiele  für  Stimme  1 


Wellenform 

Der  SID  (Sound  Interface 
Device)  des  Commodore  64 
kann  drei  verschiedene  Wel¬ 
lenformen  erzeugen: 

1.  Rechteckschwingung 

Vom  Grundton  her  erinnert 

die  Rechteckschwingung  an 
eine  Klarinette.  Die  schlagar¬ 
tige  Änderung  der  Wellen¬ 
form  ermöglicht  sehr  vielsei¬ 
tige  Anwendungen. 

2.  Sägezahnschwingung 

Der  Klang  der  Sägezahn¬ 
schwingung  erinnert  an  eine 
Geige.  Der  asymmetrische 
Verlauf  ist  durch  eine  steile 
und  eine  flache  Flanke  der 
Schwingung  gekennzeich¬ 
net. 

3.  Dreieckschwingung 

Die  Dreiecksschwingung 
ähnelt  klanglich  einer  Holz¬ 
flöte.  Diese  Schwingungs¬ 
form  kommt  einer  Sinuswelle 
recht  nahe. 

Filterung 

Um  den  Klang  eines  Tones 
zu  verändern,  muß  man  mit 
verschiedenen  Filtern  die 
Zahl  der  Oberschwingungen 
verändern.  Der  SID  kennt 
drei  verschiedene  Filter: 

1.  Tiefpaß 

Wie  der  Name  schon  sagt, 
läßt  der  Tiefpaß  tiefe  Fre¬ 
quenzen  passieren,  während 
alle  hohen  abgeschwächt 
werden, 
ochpaß 

alog  zum  Tiefpaß 


schwächt  der  Hochpaßfilter 
die  tiefen  Frequenzen  ab. 
Die  Töne  klingen  nun  sehr 
fahl,  da  die  Bässe  fehlen. 

3.  Bandpaß 

Der  Bandpaß  schwächt  so¬ 
wohl  hohe  als  auch  tiefe  Fre¬ 
quenzen  ab  und  läßt  daher 
nur  ein  schmales  Frequenz¬ 
band  passieren. 
ADSR-Hüllkurven 
Die  SID-Hüllkurve  gliedert 
sich  zeitlich  in  vier  Phasen, 
die  jeweils  unabhängig  in  16 
Stufen  gesteuert  werden 
können. 

1.  Attack  (A) 

Dieser  Parameter  steuert 
die  Zeit,  in  der  der  Ton  von 
Null  bis  zur  maximaler.  Laut¬ 
stärke  anschwillt. 

2.  Decay  (D) 

Nach  Erreichen  des  Maxi¬ 
malpegels  fällt  die  Lautstär¬ 
ke  wieder  ab,  sofern  ein  Hal¬ 
tepegel  (Sustain)  kleiner  als 
IS  eingestellt  ist. 

3.  Sustain  (S) 

Sustain  regelt  die  Lautstär¬ 
ke,  auf  der  der  Ton  nach  der 
Decay-Phase  eingestellt 
bleibt.  Die  Sustain-Phase 
dauert  so  lange,  wie  das 
Gate-Bit  gesetzt  ist. 

4.  Release  (R) 

Durch  das  Rücksetzen  des 
Gate-Bits  wird  die  Release- 
Phase  eingeleitet.  Der  Ton 
klingt  in  der  durch  den  R- 
Parameter  bestimmten  Zeit 
auf  Null  aus. 


Rea. 

BIT  7 

BIT  6 

BIT  5 

BIT  4 

BIT  3 

BIT  2 

BIT  1 

BIT  0 

Reqistername 

54272 

0 

F7 

F6 

F  5 

F4 

F  3 

F  2 

Fl 

F  0 

Frequenz  low 

Stimme  1 

Schreib  -  Reqister 

54273 

1 

F15 

F 14 

ri3 

F12 

F  11 

F  10 

F  9 

F  8 

Frequenz  hiqh 

54274 

2 

p-r 

P6 

PS 

P4 

P  3 

P2 

PI 

P0 

Pulsweite  low 

5427  5 

3 

unbenutzt 

unbenutzt 

unbenutzt 

unbenutzt 

P11 

P10 

P9 

P  8 

Pulsweire  hiqh 

54276 

4 

Rauschen 

Rechteck 

Säqezahn 

Dreieck 

Test 

Rinqmodulat. 

Synchronisat 

GATE 

Kontroll  reg  i  ster 

54277 

5 

Attack  3 

Attack  2 

Attack  1 

Attack  0 

Decay  3 

Decay  2 

Decay  1 

Decay  0 

Attack/Decay 

54278 

6 

Sustain  3 

Sustain  2 

Sustain  1 

Sustain  0 

Release  3 

Release  2 

Release  1 

Release0 

Sustain /Release 

54279 

7 

F  7 

F6 

F5 

F4 

F3 

F2 

Fl 

F  0 

Freauenz  low 

Stimme  2 

54280 

8 

F15 

F14 

•  F13 

F12 

F11 

F10 

F9 

F8 

Frequenz  hiqh 

54281 

9 

P  7 

P6 

P5 

P4 

P  3 

P  2 

PI 

P0 

Pulsweite  low 

54282 

10 

unbenutzt 

unbenutzt 

unbenut  z  t 

unbenutzt 

P11 

P10 

P9 

P8 

Pulsweite  hiqh 

54283 

11 

Rauschen 

Rechteck 

Säaezahn 

Drei  eck 

Te  st 

Rinqmodulat. 

Synchronisaf. 

GATE 

Konfrollreqisfer 

54284 

12 

Attack  3 

Attack  2 

Attack  1 

Attack  0 

Decay  3 

Decay  2 

Decay  1 

Decay  0 

Attack/Decay 

54285 

13 

Sustain  3 

Sustain  2 

Sustain  1 

Sustain  0 

Release3 

Release  2 

Release  1 

Release  0 

Sustain/ Release 

54286 

14 

F7 

F6 

F5 

F4 

F3 

F2 

Fl 

F  0 

Freauenz  low 

Stimme  3 

54287 

15 

F 15 

F 14 

F13 

F12 

F 11 

F10 

F9 

F  8 

Frequenz  hiqh 

54288 

16 

P7 

P6 

P5 

P4 

P3 

P2 

PI 

P0 

Pulsweite  low 

54289 

17 

unbenutzt 

unbenutzt 

unbenutzt 

unbenutzt 

P11  • 

P10 

P9 

P8 

Pulsweite  hiqh 

54290 

18 

Rauschen 

Rechteck 

Säqezahn 

Dreieck 

Test 

Rinqmodulat. 

Synchronisat 

GATE 

Kontrollreqister 

54291 

19 

Attack  3 

Attack  2 

Attack  1 

Attack  0 

Decay  3 

Decay  2 

Decay  1 

Decay  0 

Attack  /Decay 

54292 

20 

Sustain  3 

Sustain  2 

Sustain  1 

Sustain  0 

Release  3 

Release  2 

Release  1 

Release  0 

Sustain/Release 

54293 

21 

unbenutzt 

unbenutzt 

unbenutzt 

unbenutzt 

unbenutzt 

GF  2 

GF  1 

GF  0 

Grenzfrequenz  low 

Filter 

54294 

22 

*  GF  10 

GF  9 

GF  8 

GF  7 

GF  6 

GF  5 

GF  4 

GF  3 

Grenzfreauenz  hiq h 

54295 

23 

Resonanz  3 

Resonanz  2 

Resonanz  1 

Resonanz  0 

Filtex 

Filter  3 

Filter  2 

Filter  1 

Resonanz/Filfer 

54296 

24 

Aus 

Hochpass 

Bandpass 

Tiefpass 

L  3 

L  2 

L  1 

L  0 

Mode/Lautstärke 

54297 

25 

Pot  X  7 

Pot  X  6 

Pot  X  5 

Pot  X  4 

Pot  X  3 

Pot  X  2 

Pot  X  1 

Pot  X  0 

Potentiometer  X 

AJ 

IO 

Lese  - 

54298 

26 

Pot  Y  7 

Pot  Y  6 

Pot  Y  5 

Pot  Y  4 

Pot  Y  3 

Pot  Y  2 

Pot  Y  1 

Pot  Y  0 

Potentiometer  Y 

54299 

27 

07 

06 

05 

04 

03 

02 

01 

0  0 

Oszillator  3 

(/) 

-*• 

fD 

—) 

54300 

28 

H7 

H6 

H5 

H  4 

H  3 

H2 

Hl 

H  0 

Hüllkurve  Osz  3 

Tabelle  2.  Die  29  Register  des  SID  (Sound  Interface  Device)  mit  Kurzbeschreibung  der  Funktionen. 
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Nr. 

Note- 

Fre- 

Parame- 

Hi- 

Lo- 

Oktave 

quenz(Hz) 

ter 

Byte 

Byte 

0 

C-0 

16.4 

278 

1 

22 

1 

C#-0 

17.3 

295 

1 

39 

2 

D-0 

18.4 

313 

1 

57 

3 

D#-0 

19.4 

331 

1 

75 

•4 

E-0 

20.6 

351 

1 

95 

5 

F-0 

21.8 

372 

1 

116 

6 

F#-0 

23.1 

394 

1 

138 

7 

G-0 

24.5 

417 

1 

161 

8 

G#-0 

26.0 

442 

1 

186 

9 

Ä-0 

27.5 

468 

1 

212 

10 

A#-0 

29.1 

496 

1 

240 

11 

H-0 

30.9 

526 

2 

14 

12 

C-l 

32.7 

557 

2 

45 

13 

C#-l 

34.6 

590 

2 

78 

14 

D-l 

36.7 

625 

2 

113 

15 

D#-l 

38.9 

662 

2 

150 

16 

E-l 

41.2 

702 

2 

190 

17 

F-l 

43.7 

743 

2 

231 

18 

F#-l 

46.2 

788 

3 

20 

19 

G-l 

49.0 

834 

3 

66 

20 

G#-l 

51.9 

884 

3 

116 

21 

A-l 

55.0 

937 

3 

169 

22 

A#-l 

58.3 

992 

3 

224 

23 

H-l 

61.7 

1051 

4 

27 

24 

C-2 

65.4 

1114 

4 

90 

25 

C#-2 

69.3 

1180 

4 

156 

26 

D-2 

73.4 

1250 

4 

226 

27 

D#-2 

77.8 

1325 

5 

45 

28 

E-2 

82.4 

1403 

5 

123 

29 

F-2 

87.3 

1487 

5 

207 

30 

F#-2 

92.5 

1575 

6 

39 

31 

G-2 

98.0 

1669 

6 

133 

32 

G#-2 

103.8 

1768 

6 

232 

33 

A-2 

110.0 

1873 

7 

81  en 

34 

A#-2 

116.5 

1985 

7 

193 

35 

H-2 

123.5 

2103 

8 

55 

36 

C-3 

130.8 

2228 

8 

180 

37 

C#-3 

138.6 

2360 

9 

56 

38 

D-3 

146.8 

2500 

9 

196 

39 

D#-3 

155.6 

2649 

10 

89 

40 

E-3 

164.8 

2807 

10 

247 

41 

F-3 

174.6 

2974 

11 

158 

42 

F  #-3 

185.0 

3150 

12 

78 

43 

G-3 

196.0 

3338 

13 

10 

44 

G#-3 

207.7 

3536 

13 

208 

45 

A-3 

•  220.0 

3746 

14 

162 

46 

A#-3 

233.1 

3969 

15 

129 

47 

H-3 

246.9 

4205 

16 

109 

Nr. 

Note- 

Fre- 

Parame- 

Hi- 

Lo- 

Oktave 

quenz(Hz) 

ter 

Byte 

Byte 

48 

C-4 

261.6 

4455 

17 

103 

49 

C#-4 

277.2 

4720 

18 

112 

50 

D-4 

293.7 

5001 

19 

137 

51 

D  #-4 

311.1 

5298 

20 

178 

52 

E-4 

329.6 

5613 

21 

237 

53 

F-4 

349.2 

5947 

23 

59 

54 

F#-4 

370.0 

6301 

24 

157 

55 

G-4 

392.0 

6676 

26 

20 

56 

G#-4 

415.3 

7072 

27 

160 

57 

A-4 

440.0 

7493 

29 

69 

58 

A#-4 

466.2 

7939 

31 

3 

59 

H-4 

493.9 

8411 

32 

219 

60 

C-5 

523.3 

8911 

34 

207 

61 

C#-5 

554.4 

9441 

36 

225 

62 

D-5 

S87.3 

10002 

39 

18 

63 

D#-5 

622.3 

10597 

41 

101 

64 

E-5 

659.3 

11227 

43 

219 

65 

F-5 

698.5 

11894 

46 

118 

66 

F#-5 

740.0 

12602 

49 

58 

67 

G-5 

784.0 

13351 

52 

39 

68 

G#-5 

830.6 

14145 

55 

65 

69 

A-5 

880.0 

14986 

58 

138 

70 

A#-5 

932.3 

15877 

62 

5 

71 

H-5 

987.8 

16821 

65 

181 

72 

C-6 

1046.5 

17821 

69 

157 

73 

C#-6 

1108.7 

18881 

73 

193 

74 

D-6 

1174.7 

20004 

78 

36 

75 

D#-6 

1244.5 

21193 

82 

201 

76 

E-6 

1318.5 

22454 

87 

182 

77 

F-6 

1396.9 

23789 

92 

237 

78 

F#-6 

1480.0 

25203 

98 

115 

79 

G-6 

1568.0 

26702 

104 

78 

80 

G#-6 

1661.2 

28290 

110 

130 

ir*£« 

A-6 

1760.0 

29972 

117 

20 

82 

A#-6 

1864.7 

31754 

124 

10 

83 

H-6 

1975.5 

33642 

131 

106 

84 

C-7 

2093.0 

35643 

139 

59 

85 

C#-7 

2217.5 

37762 

147 

130 

86 

D-7 

2349.3 

40008 

156 

72 

87 

D#-7 

2489.0 

42387 

165 

147 

88 

E-7 

2637.0 

44907 

175 

107 

89 

F-7 

2793.8 

47578 

185 

218 

90 

F#-7 

2960.0 

50407 

196 

231 

91 

G-7 

3136.0 

53404 

208 

156 

92 

G#-7 

3322.4 

56580 

221 

4 

93 

A-7 

3520.0 

59944 

234 

40 

94 

A#-7 

3729.3 

63508 

248 

20 

Tabelle  3.  POKE-Werte  für  Musik-Noten 
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Fortsetzung  von  Seite  90 

60490 

QN  CD  GOSUB  63900,63910,63920,63930 
,63940,63950 

<021  > 

60495 

IF  FL=1  GOTO  60320 

<  168> 

60500 

: 

<021  > 

60505 

IF  LEN ( I Ni ) =SS-SP  THEN  INi=INi+Ni: GO 

TO  60515 

<096> 

60510 

I  Ni— LEFT i  ( I  Ni ,  SS— SF )  +Ni+M  I  Di  ( I  Ni ,  SS— 
SP+2 , LEN (INi) -SS+SP- 1 ) 

<084> 

60515 

PRINT  Ni; 

<  189> 

60520 

IF  S5=SP+MA-1  THEN  PRINT  CHRi(157); 

<  1 50  > 

60530 

GOTO  60320 

<047> 

60901 

: 

<  16B> 

60902 

: 

<  169> 

60903 

: 

<  1 70> 

60950 

POKE  2 11, BP: POKE  214, ZE: SYS  58640: RE 
TURN 

<244> 

60999 

: 

<012> 

61000 

GOSUB  60950 

<155> 

61010 

PRINT  LEFT i ( BLi , MA >  ; 

<  1 45> 

61020 

GOSUB  60950 

<  175> 

61030 

INi=" " 

<01 1> 

61040 

RETURN 

<  1 35  > 

61099 

: 

<  1 1 2  > 

61210 

IF  SS< SP+LEN ( I Ni ) AND  SS<SP+MA-1  THEN 

SS=SS+1 

<019> 

61220 

GOSUB  63890 

<  13S> 

61230 

POKE  2 11, SS: SYS  5B640 

<065> 

61240 

RETURN 

<081  > 

61250 

: 

< 009 > 

61310 

IF  SS>SP  THEN  SS=SS-1 

<220> 

61320 

GOSUB  63890 

<238> 

61330 

POKE  2 11, SS  :  SYS  58640 

<  165> 

61340 

RETURN 

<  181  > 

61350 

: 

<  109> 

61410 

I Ni=LEFTi ( I Ni , SS-SP- 1 ) +M I Di ( I Nt , SS-S 
P+l , LEN (I Ni) -SS+SP) 

<  1 1B> 

61420 

GOSUB  63890 

<082> 

61425 

IF  LENCINiXMA— 1  THEN  PRINT"  " ; 

<  034  > 

61430 

61440 

POKE  2 11, SS- 1  :  SYS  58640 

RETURN 

mt 

61490 

: 

<25 1  > 

61505 

IF  SS=SP+LEN(INi>  THEN  GOTO  61540 

<  188> 

61510 

INi=LEFT4 ( I Ni , SS-SP) + "  " +MI Di ( INi , SS 
— SP+ 1 , LEN ( I Nt ) -SS+SP ) 

<055> 

61520 

GOSUB  63890 

<  184> 

6  1 530 

POKE  2 11, SS  :  SYS  58640 

<  1 1 1  > 

61540 

RETURN 

<  127> 

61590 

: 

<095> 

63890 

GOSUB  60950 

<251  > 

63892 

PRINT  INi;  :  IF  LENCINiXMA  THEN  PRINT 

<  1 26  > 

63B98 

RETURN 

<  1 99  > 

63899 

: 

<  1 1 B  > 

63900 

IF  ASC (Nt) <48  OR  ASC(Ni)>57  THEN  FL= 
1 

<  105> 

63909 

RETURN 

<210> 

63910 

IF  ASC (Ni) =32  THEN  RETURN 

<234> 

639 1 1 

I F ( ASC ( Ni ) < 65  OR  ASC (Ni) >90) AND (ASC ( 
Ni) < 193  OR  ASC (Ni) >218)  THEN  FL=1 

<230> 

63919 

RETURN 

<220> 

63920 

REM 

<225> 

63929 

RETURN 

<230> 

63930 

IF  ASC (Ni) =32  THEN  RETURN 

<254> 

63931 

IF (ASC (Ni) <65  OR  ASC (Ni) >90)  THEN  FL 
=  1 

<  006  > 

63939 

RETURN 

<240> 

63940 

REM 

<245> 

63949 

RETURN 

<250> 

63950 

REM 

<255> 

63959 

RETURN 

<004> 

©  64'er 

Listing  Schluß 

Synthetische  Melodien 

Das  wahrscheinlich  kürzeste  und  erstaunlichste  Musik-Syn- 
thesizer-Sequenzer-Programm,  das  je  veröffentlicht  wurde.  Es 
handelt  sich  um  ein  47  Byte  langes  Assemblerprogramm,  das 


im  Listing  4,  in  Form  eines  DATA-Laders  vorliegt.  Die  Melodie 
und  die  Klangfarbe  kann  man  über  die  Speicherstellen  1022 
und  1023  einstellen.  Dabei  kommt  es  allerdings  nur  auf  die  Dif¬ 
ferenz  der  beiden  Byte  an.  Es  empfiehlt  sich  also,  die  Spei¬ 
cherstelle  1022  mit  0  zu  belegen  und  für  1023  alle  Werte  von 
0  bis  128  auszuprobieren. 

Melodische  Tonfolgen  erreicht  man  mit  POKE  1023,7  + 
8  *  n,  wobei  n  eine  ganze  Zahl  zwischen  0  und  1 6  sein  darf.  Ef¬ 
fektvolle  Klänge  erreicht  man  zum  Beispiel  über  folgende  Wer¬ 
te  (POKE  1023,...):  11,  28,  62,  96,  130. 

Funktionsweise 

Zuerst  werden  Kurven-  und  Wellenform  festgelegt.  Die  bei¬ 
den  Speicherinhalte  von  1022  und  1023  werden  erhöht  be¬ 
ziehungsweise  erniedrigt.  Dann  werden  sie  miteinander  durch 
die  AND-Funktion  verknüpft.  Das  Ergebnis  kommt  ins  High- 
Byte  des  Tonhöhenregisters.  Eine  kleine  Warteschleife  macht 
die  Komposition  hörbar.  (Wolf gang  Horak/tr) 


10  POKE  1022,0  <01 2> 

20  I NPUT" PARAMETER ";A: POKE  1032,A  <151> 

30  FOR  T=0  TO  46: READ  ß:POKE  T+B32,Q:NEXT  <07B> 
40  SYS  B32  <220> 

50  DATA  169,15,141,24,212,141,5,212,169,11 

2,141,6,212, 169,17,141,4,212,238  <190> 

60  DATA  255,3,206,254,3,162,0,16,0,200,208 

,253,232,224,7,208,246,173,255  <222> 

70  DATA  3,45,254,3,141,1,212,176,227  <042> 


©  64' e* 

Listing  4  »Synthetische  Melodien«.  Bitte  mit  dem 
Checksummer  eingeben. 


Die'  Super-POKEs 

POKE  792,226:  POKE  793,252 

Sobald  die  RESTORE-Taste  gedrückt  wird,  wird  ein  Reset 
ausgelöst. 

POKE  774,226:  POKE  775,252 
Sobald  der  LIST-Befehl  eingetippt  wird,  wird  ein  Reset  aus¬ 
gelöst. 

POKE  818,226:  POKE  819,252 
Sobald  der  SAVE-Befehl  eingetippt  wird,  wird  ein  RESET 
ausgelöst.  (tr) 

Tips  &  Tricks  —  Mischmasch 

Und  hier  noch  ein  paar  Kleinigkeiten  für  die  Tips  &  Tricks- 
Sammlung: 

—  Neustart  eines  Basic-Programms  nach  Drücken  von  RUN- 
STOP-RESTORE: 

1  DATA  169,  49,  141,  20,  3,  76,  113,  168 

2  FOR  1  =  700  TO  707:  READ  A:  POKE  l,A:  NEXT 

3  POKE  770,188:  POKE  771,2 

Einzige  Bedingung  ist,  daß  Ihr  Programm  eine  Zeile  0  ent¬ 
hält,  da  der  Interpreter  einen  RUN  O-Befehl  ausführt. 

—  Nachladen  von  Datasette  mit  Autostart: 

POKE  56335,2 

Dem  Betriebssystem  wird  vorgegaukelt,  daß  SHIFT-RUN- 
STOP  gedrückt  wäre. 

—  Nützliche  SYS-Adressen: 

43121:  entspricht  dem  Befehl  RUN  0 
42039:  Ausgabe  von  Fehlermeldungen.  Im  X-Register 
des  Prozessors  muß  die  Fehlernummer  stehen  (Speicherstel¬ 
le  Nummer  781). 

64763:  RESET,  ohne  Initialisierung  der  Vektoren  (IRQ  etc.). 

(tr) 
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Ergänzungen  zu  Hypra-Ass 

Durch  diese  Ergänzung  kann  Hypra-Ass  bedingte  Verzweigungen 
in  vollem  Umfang  bearbeiten.  Das  war  bisher  nicht  möglich. 


Wollte  man  zum  Beispiel  die  Befehlsfolge  LBL  BCC  LBL  as- 
semblieren,  meldete  der  Assembler  einen  »branch  too  far«- 
Error.  Alle  bedingten  Verzweigungen,  wie  BCC,  BCS,  BNE  .... 
bei  denen  auf  das  eigene  Befehls-Byte  verzweigt  wurde,  funk¬ 
tionierten  nicht.  Befehlsfolgen  beziehungsweise  Warteschlei¬ 
fen  dieser  Art  werden  zum  Beispiel  vom  DOS  sehr  intensiv  ge¬ 
nutzt.  Sie  bewirken,  daß  so  lange  gewartet  wird,  bis  die 
Interrupt-Routine  das  Carry-Bit  im  Prozessor-Statusregister 
setzt. 

Nachdem  ein  Quelltext  geändert  wurde,  konnte  es  passie¬ 
ren,  daß  Hypra-Ass  Undefinierte  Zeilen  an  das  Quelltextende 
setzte.  Dieses  eigenmächtige  Handeln  von  Hypra-Ass  kam 
zwar  sehr  selten  vor,  hatte  aber  fatale  Auswirkungen.  Denn  der 
Assembler  quittierte  jeden  Versuch,  den  Quelltext  zu  überset¬ 
zen,  mit  einer  Fehlermeldung.  Leider  ließen  sich  die  überflüssi¬ 


gen  Zeilen  auch  nicht  mehr  löschen,  so  daß  man  in  einigen  Fäl¬ 
len  gezwungen  war,  den  gesamten  Quelltext  neu  einzugeben. 
Die  nun  folgende  Ergänzung  beseitigt  auch  diese,  für  viele  Le¬ 
ser  sicherlich  unangenehme  Eigenschaft. 

Bevor  Sie  jetzt  anfangen,  das  Quelltextlisting  abzutippen, 
muß  zuerst  Hypra-Ass  geladen  und  gestartet  werden.  Verges¬ 
sen  Sie  beim  Abtippen  nicht  das  Minuszeichen  nach  jeder  Zei¬ 
lennummer  und  das  Leerzeichen  für  Maschinenbefehle  hinter 
dem  Minuszeichen.  Haben  Sie  den  Quelltext  abgetippt,  ist 
Hypra-Ass  wie  gewohnt  mit  RUN  zu  starten.  Beim  Assemblie- 
ren  korrigiert  sich  Hypra-Ass  automatisch.  Mit  SYS  49152  wird 
die  neue  Hypra-Ass  Version  unter  dem  Namen  »Hypra-Ass +« 
auf  Diskette  gespeichert. 

(Gert  Möllmann/ah) 


100 

Gld-Befehl  berichtigen 

. 

480 

HO 

5 

490 

—error  lda  #5 

120 

ba 

♦  If3c 

500 

—  jmp  ^a7f 

130 

— 

sec 

510 

140 

“5 

52  C 

150 

— ;  Branch 

au-f  der  Stelle 

erlauben 

530 

160 

label 

beq  label ) : 

540 

Um  die  geaenderte  Version  neu 

170 

—  5 

550 

— ;  abzuspei ehern  ist  -folgender 

180 

—  -  ba 

♦d33 

560 

Quell text  geeignet: 

190 

—  • 
j 

570 

“5 

200 

— 

1  da 

♦3c 

580 

— .ba  ♦cOOO 

210 

- 

sec 

590 

220 

- 

sbc 

♦fb 

600 

-.eq  sourcestart  =  ♦lfdS 

230 

— 

tax 

610 

— . eq  namlen  =  10 

240 

- 

lda 

♦3d 

620 

250 

- 

sbc 

♦fc 

630 

lda  #1 

260 

— 

tay 

640 

ldx  #8 

270 

- 

txa 

650 

sta  ♦fe 

280 

- 

sbc 

#2 

660 

st x  ♦ff 

290 

- 

sta 

♦3c 

670 

lda  #8 

300 

- 

-by 

♦bO,  1 

680 

jsr  ♦ffba 

310 

- 

dey 

690 

—  lda  #namlen 

320 

700 

—  ldx  #< (narne) 

330 

-br  1 

cpy 

#0 

710 

-  ldy  #>(name) 

340 

- 

.by 

♦f  0  , 16 

720 

-  jsr  ♦ffbd 

350 

- 

iny 

730 

lda  #^fe 

360 

- 

.by 

♦dO, 18 

740 

—  ldx  #< (sourcestart) 

370 

- 

cmp 

#♦80 

750 

-  ldy  #> (sourcestart ) 

380 

- 

.by 

♦90, 14 

760 

-  jmp  ♦ffdB 

390 

— 

inc 

♦3c 

770 

—  a 
* 

400 

- 

cmp 

«♦fe 

780 

— name  .tx  "hypra— ass+" 

410 

— 

.by 

♦90,2 

790 

—  m 

9 

420 

- 

dec 

♦3c 

800 

-j  Durch  sys  ♦cOOO  wird  der  ge- 

430 

— br3 

rts 

810 

aenderte  Assembler  auf  Disk 

440 

—  ■ 

9 

820 

— ;  abgespeichert 

450 

— br2 

cmp 

#♦80 

460 

- 

.by 

♦bO,  1 

470 

rts 

Quelltextlisting  zur  Hypra-Ass-Ergänzung 
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Reassembler 
zu  Hypra-Ass 

Passend  zum  Assembler  Hypra-Ass 
stellen  wir  Ihnen  jetzt  auch  einen  pro¬ 
fessionellen  Reassembler  vor,  der  aus 
einem  Maschinenprogramm  Quelltext 
erzeugt. 

Der  Reassembler  (siehe  Listing)  ist  vollständig  in  Maschi¬ 
nensprache  geschrieben.  Er  belegt  den  Speicherplatz  von 
$C000  bis  $CBOO,  kann  aber  mit  dem  SMON  in  jeden  ande¬ 
ren  Bereich  verschoben  werden.  Neben  dem  eigentlichen  Re¬ 
assembler  stehen  noch  einige  Basic-Befehle  zur  Verfügung, 
mit  denen  zum  Beispiel  Einsprungpunkte  im  Quelltext  durch 
ein  Label  markiert  werden  können.  Es  läßt  sich  auch  vorherbe¬ 
stimmen,  ob  der  Reassembler  selbständig  nach  Tabellen  su¬ 
chen  soll  oder  nicht.  Weiterhin  läßt  sich  der  Aufbau  des  Quell¬ 
textes  in  einigen  Punkten  mitbestimmen.  Alle  dazu  nötigen  In¬ 
formationen  werden  dem  Reassembler  in  einem  kleinen  Basic- 
Informationsprogramm  mitgeteilt.  Es  stehen  dafür  drei  neue 
Basic-Befehle  zu  Verfügung: 

— P  adresse:  Mit  diesem  Befehl  lassen  sich  Einsprungpunkte 
im  Quelltext  durch  ein  Label  markieren.  So  sind  Adressen,  die 
mit  SYS  angesprungen  werden,  im  Quelltext  leichter  auffind¬ 
bar. 

— T  adresse,  adresse:  Mit  diesem  Befehl  teilen  Sie  dem  Reas¬ 
sembler  die  Lage  von  Tabellen  mit.  Die  erste  Adresse  zeigt  auf 
das  erste  und  die  zweite  Adresse  auf  das  letzte  Byte  der  Tabel¬ 
le.  Tabellen  werden  vom  Reassembler  nicht  reassembliert, 
sondern  erscheinen  im  Quelltext  in  Form  eines  Hex-Dumps 
(siehe  Bild  1;  Zeile  190  und  Bild  2  Zeile  230  bis  310). 

— E  (byte):  Der  »E«-Befehl  startet  den  Reassembler  und  steht 
am  Ende  des  Informationsprogramms.  Es  wird  nun  aus  einem 
Maschinenprogramm  ein  Quelltext  erzeugt,  der  im  Basic- 
Speicher  abgelegt  und  anschließend  wie  ein  normales  Basic- 
Programm  gespeichert  oder  editiert  und  mit  Hypra-Ass  as- 
sembliert  werden  kann. 

Der  Aufbau  des  Quelltextes  läßt  sich  geringfügig  beeinflus¬ 
sen,  indem  hinter  den  »E«-Befehl  eine  Zahl  zwischen  0  und 
255  eingegeben  wird.  Bei  dieser  Zahl  handelt  es  sich  um  ein 
sogenanntes  Informations-Byte.  Die  einzelnen  Bits  dieses 
Informations-Bytes  haben  folgende  Bedeutung: 
Informations-Byte:  oooooooo 

Bit:  7  6  5  4  3  2  1  0 

Wertigkeit:  128  064032  016  008004002001 

Um  zum  Beispiel  Bit  1  und  Bit  6  auf  1  zu  setzen,  sind  die 
Wertigkeiten  der  einzelnen  Bits  zu  addieren.  In  diesem  Fall  2 
+  64  =  66 

Bit  0  gesetzt:  Alle  Zeropage-Adressen  (Adressen  von  $00  bis 
$FF)  werden  durch  ein  Label  mit  nur  drei  Buchstaben  (normal 
fünf)  markiert. 

Bit  1  gesetzt:  Nach  den  Befehlen  RTS,  RTI,  BRK  und  JMP  wird 
eine  Kommentarzeile  in  den  Quelltext  eingefügt  (Zeile  220  in 
Bild  2).  Dadurch  wird  der  Quelltext  übersichtlicher. 

Bit  2  gesetzt:  Bei  allen  Befehlen  mit  unmittelbarer  Adressie¬ 
rung  (zum  Beispiel  LDA  #  $41)  wird  der  Operand  zusätzlich  im 
ASCII-Format  ausgegeben  (LDY  #$00  .  "  —  Zeile  140  und 

160  in  Bild  2),  vorausgesetzt,  er  liegt  zwischen  32  und  96 
oder  zwischen  160  und  224.  Für  den  Fall,  daß  er  außerhalb 
dieses  Zahlenbereichs  liegt,  wird  nur  ein  Punkt  ausgegeben. 


Bit  3  gesetzt:  Zwischen  je  zwei  Tabellenzeilen  wird  eine  Kom¬ 
mentarzeile  eingefügt  (Zeile  240,  260,  280,  300  in  Bild  2). 
Dieses  erhöht  die  Übersichtlichkeit. 

Bit  4  gesetzt:  Der  ASCII-Ausdruck  wird  bei  Tabellen  unter¬ 
drückt. 

Bit  5  gesetzt:  Ist  dieses  Bit  gesetzt,  werden  externe  Label  und 
Tabellenlabel  speziell  gekennzeichnet  (Zeile  100  und  230  in 
Bild  2).  Tabellen  wird  ein  »T«  vorangestellt  (zum  Beispiel 
TLC000)  und  externen  Label  (Label  die  außerhalb  des  zu  reas- 
semblierenden  Bereichs  liegen)  ein  »E«  (zum  Beispiel 
ELC000). 

Bit  6  gesetzt:  Ist  das  Bit  6  gesetzt,  sucht  der  Reassembler 
selbständig  nach  Tabellen.  Es  wird  kein  Quelltext,  sondern  ein 
Basic-Informationsprogramm  generiert,  das  die  Start-  und 
Endadressen  aller  gefundenen  Tabellen  enthält.  Dieses  kann 
mit  LIST  oder— wenn  Hypra-Ass  geladen  wurde— mit /E  geLI- 
STet  und  geändert  werden. 

Bit  7  gesetzt:  Der  Reassembler  reassembliert  die  Speicherin¬ 
halte,  die  sich  unter  dem  ROM  im  RAM  befinden.  Dadurch  ist 
es  möglich,  Programme  zu  reassemblieren,  die  sich  unter  dem 
Basic-Interpreter  oder  Betriebssystem  befinden. 

Aus  den  drei  neuen  Basic-Befehlen  setzt  sich  jedes  Informa¬ 
tionsprogramm  zusammen.  Es  wird  mit  folgender  Befehls- 
Sequenz  im  Direktmodus  gestartet: 

SYS  49152,  anfadr,  endadr+1:RUN 
anfadr  =  Anfangsadresse  des  Maschinenprogramms,  das  re¬ 
assembliert  werden  soll. 
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.11  1,4,7 

•iHHHHHt************************ 
Ausgabe  eines  Textes  auf  * 
dem  Bildschirm  * 

******************************* 
ba  *8000  ; Startadresse  =  *8000 


eq 


sgabe  =  *ffd2  ;Dies  ist  ein  externes  Label 


100 

— anfang 

ldy 

«0 

; Schlei fenz a eh 1 er 

auf 

0  setzen 

110 

—1  oop 

1  da 

tex  t , y 

; Zeichen  holen 

120 

— 

cmp 

#“#" 

;mit  Endelcennzeichen 

vergleichen 

130 

- 

beq 

ende 

140 

— 

jsr 

ausgabe 

1  Zeichen  ausgeben 

150 

— 

iny 

; Schlei fenz  aehl er 

+  1 

160 

- 

bne 

1  oop 
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rts 

(Ende  und  zurueck 
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Basic 

180 
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-text 

-tx 

"Dies  ist 

ein  Beispieltext#' 

Bild  1.  Beispielprogramm  zum  Reassembler 
(Original  Quelltext  erstellt  mit  Hypra-Ass) 
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elffd2=*ffd2 
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200  - 
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240-; 
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-by 
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*54  •  ;  "t" 
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310  — tl 8029 

•by 
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Bild  2.  Reassembler-Quelltext  zum  Beispielprogramm 

aus  Bild  1 
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endadr  =  Endadresse  des  Maschinenprogramms,  das  reas- 
sembliert  werden  soll. 

Um  zum  Beispiel  den  Reassembler  durch  sich  selbst  reas- 
semblieren  zu  lassen,  gehen  Sie  wie  folgt  vor: 

1.  Reassembler  laden  mit  LOAD”REASS”,8,1 

2.  NEW  <  RETURN  >  eingeben 

3.  Folgendes  Basic-Informationsprogramm  eingeben: 

20  — P  $C000  kennzeichnet  die  Adresse  $C000  durch  ein 
Label 

30— T  $C813,$CAFF  ;Definiert  eine  Tabelle  im  Bereich  von 
$C813  bis  $CAFF 

40  — E  15  ;Startet  den  Reassembler  und  setzt  die  Bits  0  bis  3 

4.  SYS  49152, $C000,$CB00:RUN  <  RETURN  > 
im  Direktmodus  eingeben. 

Die  SYS-Zeile,  mit  der  das  Informationsprogramm  gestartet 
wird,  teilt  dem  Reassembler  mit,  daß  das  zu  reassemblierende 
Maschinenprogramm  im  Bereich  von  $C000  bis  $CAFF 
($CB00  -  1)  liegt.  In  Zeile  20  trifft  der  Reassembler  auf  den 
»P«-Befehl,  der  dazu  auffordert,  die  Adresse  $C000  durch  ein 
Label  zu  markieren.  Der  >T«-Befehl  in  Zeile  30  definiert  eine  Ta¬ 
belle  im  Bereich  $C813  bis  $CAFF  und  der  »E«-Befehl  in  Zeile 
40  startet  schließlich  den  Reassembler. 

In  weniger  als  8  Sekunden  wird  nun  ein  etwa  17  KByte  lan¬ 
ger  Quelltext  erzeugt,  der  mit  LIST  oder  —  wenn  Hypra-Ass 
geladen  und  gestartet  wurde  —  mit  dem  /E-Befehl  geLISTet 
und  mit  RUN  assembliert  werden  kann. 

Wie  Sie  sicherlich  schon  bemerkt  haben,  verarbeitet  der  Re¬ 
assembler  nicht  nur  Dezimal-,  sondern  auch  Hexadezimalzah¬ 
len.  Eine  Hexadezimalzahl  beginnt  mit  einem  Dollar-Zeichen 
($),  dem  genau  vier  Hex-Ziffern  folgen  müssen.  Beispiel: 
$0073,  $C000,  $FFFF 


tionsprogramm  ohne  Leerzeichen  einzugeben,  weil  Hypra-Ass 
nach  dem  ersten  Leerzeichen  einen  Tabulator  einfügt.  Das 
Aussehen  des  Quelltextes  würde  dadurch  verunstaltet.  Ge¬ 
startet  wird  das  Informationsprogramm  wie  gewohnt  mit  RUN. 
(Vergessen  Sie  nicht  den  Minusstrich  vor  jeder  Zeile,  wenn 
Hypra-Ass  geladen  ist.) 

2.  Aus  programmtechnischen  Gründen  kann  es  Vorkom¬ 
men,  daß  der  Reassembler  im  ersten  Pass  ein  Maschinenpro¬ 
gramm  anders  reassembliert  als  im  zweiten.  Dadurch  können 
in  Pass  2  Sprungadressen  im  Maschinenprogramm  auftaü- 
chen,  die  in  Pass  1  nicht  gefunden  wurden  und  deshalb  auch 
im  Quelltext  nicht  durch  ein  Label  markiert  werden.  Der  Reas¬ 
sembler  ersetzt  in  diesem  Fall  die  Sprungadresse  nicht  durch 
ein  Label,  sondern  stellt  sie  als  Hex-Zahl  im  Quelltext  dar.  An 
die  entsprechende  Zeile  werden  3  Fragezeichen  angehängt. 

3.  3-Byte-Befehle,  die  bei  der  Assemblierung  als  2-Byte- 
Befehle  interpretiert  werden  (BIT  $A9  $00  =  .BY  $2C  LDA 
#$00),  werden  nicht  reassembliert.  Statt  dessen  werden  die 
3  Byte  mit  vorangestelltem  BY-Pseudoopcode  in  den  Quell¬ 
text  eingefügt.  Der  reassemblierte  Befehl  wird  aber  als  Kom¬ 
mentar  an  die  entsprechende  Zeile  angefügt. 

4.  Es  ist  möglich,  ein  Programm  so  zu  reassemblieren,  als 
ob  es  in  einem  anderen  Bereich  läge.  Dazu  ist  an  den  SYS- 
Befehl  eine  weitere  Adresse  anzuhängen: 

SYS  49152,  anfadr,  endadr,  get 

anfadr  und  endadr  geben  die  Anfangs-  und  Endadresse  des 
Bereichs  an,  in  dem  das  Maschinenprogramm  liegen  soll,  get 
gibt  die  Anfangsadresse  des  Bereichs  an,  in  dem  das  Pro¬ 
gramm  tatsächlich  liegt. 

So  kann  man  zum  Beispiel  die  Kopie  der  CHRGET-Routine 
ab  $E3A2  reassemblieren,  als  ob  sie  im  Bereich  von  $0073 
bis  $008A  liegen  würde.  Dazu  ist  im  Direktmodus  folgende 
Zeile  einzugeben: 


SYS  49152,  $0073,  $008A,  $E3A2:-E 
Da  keine  Tabellen  in  diesem  Bereich  liegen,  kann  auf  ein  In¬ 
formationsprogramm  verzichtet  werden. 

5.  Es  ist  möglich,  während  der  Reassemblierung  den  er¬ 
zeugten  Quelltext  auf  Diskette  zu  schreiben.  Dadurch  bleibt 
der  Basic-Speicher  für  andere  Programme  frei.  Dazu  ist  vor 
dem  SYS-Befehl,  mit  dem  die  Start-  und  Endadresse  überge¬ 
ben  wird,  ein  Programmfile  zu  öffnen.  Mit  dem  Befehl  CMD 
wird  die  Ausgabe  auf  das  entsprechende  Gerät  umgeleitet. 
Das  könnte  wie  folgt  aussehen: 

OPEN  1,8,1  ,”NAME,P,W":CMD  1:SYS  49152,$C000, 
$CB00:-E  64 

Mit  dem  OPEN-Befehl  wird  ein  Programmfile  mit  dem  Namen 
»Name«  zum  Schreiben  geöffnet.  Der  CMD-Befehl  leitet  die 
Ausgabe  auf  das  Gerät  mit  der  Gerätenummer  8  um 
(Disketten -Laufwerk).  Der  SYS-Befehl  startet  schließlich  den 
Reassembler,  dem  durch  den  »E«-Befehl  noch  mitgeteilt  wird, 
daß  kein  Quelltext,  sondern  ein  Informationsprogramm  erstellt 
werden  soll.  Das  Informationsprogramm  wird  unter  dem  Na¬ 
men  »Name«  auf  Diskette  gespeichert. 

Vorsicht!  Dieser  Programmteil  ist  nicht  gegen  Fehlbedie¬ 
nung  abgesichert.  So  führt  eine  nicht  eingelegte  Diskette  zum 
Absturz  des  Systems.  In  einem  solchen  Fall  ist  ein  RESET  aus¬ 
zulösen.  Hypra-Ass  kann  anschließend  mit  SYS  2168  neu  ge¬ 
startet  werden.  Außerdem  sollte  nach  jedem  Speichern  die 
RUN/STOP-RESTORE-Taste  gedrückt  werden. 

Fehlermeldungen 

SYNTAX  ERROR:  Ein  Basic-Befehl  wurde  falsch  eingegeben 
oder  eine  Hex-Zahl  besteht  aus  weniger  als  4  Hex-Ziffern. 
OUT  OF  MEMORY:  Es  steht  zu  wenig  Speicherplatz  für  den 
Quelltext  zur  Verfügung  oder  im  Maschinenprogramm  kom¬ 
men  mehr  als  2700  verschiedene  Label  vor. 

IAL  QUANTITY:  Vor  einer  Hex-Zahl  fehlt  das  Dollar- 
Zeichen  ($)  oder  das  Tabellenende  liegt  vor  dem  Tabellenan¬ 
fang  oder  die  Tabellen  überschneiden  sich  oder  die  angege¬ 
bene  Adresse  liegt  nicht  im  Maschinenprogramm. 

TYPE  MISMATCH:  In  einer  Hex-Zahl  stehen  falsche  Hex- 
Ziffern. 

Die  Adresse,  die  schon  als  Einsprungpunkt  markiert  wurde, 
darf  nicht  als  Tabellenanfang  oder  -ende  angegeben  werden. 
Im  Informationsprogramm  darf  keine  Adresse  doppelt  Vorkom¬ 
men. 

Verschieben  des  Reassemblers 

Der  Reassembler  benutzt  in  der  Zeropage  verschiedene 
Speicherzellen  als  Kurzzeitspeicher.  Der  Langzeitspeicher 
dagegen  liegt  unter  dem  Betriebssystem  ($E000  bis  $FFFF). 
Dort  befindet  sich  auch  ab  Adresse  $E028  die  Label-Tabelle. 
In  den  Langzeitspeicher  sollte  nicht  hineingePOKEt  werden. 

Der  Reassembler  kann  mit  SMON  ohne  Schwierigkeiten  im 
Speicher  verschoben  werden.  Um  den  Reassembler  nach 
$9000  zu  verschieben,  sind  folgende  SMON-Befehle  einzu¬ 
geben: 

W  C000  CBOO  9000 
V  C000  CBOO  9000  9000  9813 

Beispiel  zu  den  Basic-Erweiterungen 

Laden  Sie  Hypra-Ass,  starten  Sie  ihn  und  laden  anschlie¬ 
ßend  den  Reassembler.  Geben  Sie  NEW  und  danach  im  Di¬ 
rektmodus 

SYS  49152, $1000, $1FD7:-E  64  <  RETURN > 
ein.  Der  Reassembler  bekommt  durch  den  SYS-Befehl  die 
Start-  und  Endadresse  des  Maschinenprogramms  mitgeteilt. 
Der  »E«-Befehl  setzt  Bit  6  des  Informations-Bytes  und  startet 
den  Reassembler.  Das  gesetzte  Bit  6  bewirkt,  daß  kein  Quell¬ 
text,  sondern  ein  Informationsprogramm  erstellt  wird.  LISTen 
Sie  das  Programm  mit  /E.  Sie  sehen  eine  Reihe  von  >T«- 


Besonderheiten 

1.  Der  Reassembler  arbeitet  ausgezeichnet  mit  Hypra-Ass  ILLi 
zusammen.  Dabei  ist  es  jedoch  übersichtlicher,  das  Informa- 
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Befehlen  und  zum  Schluß  einen  »E«-Befehl.  Schreiben  Sie  hin¬ 
ter  diesen  Befehl  die  Zahl  32,  drücken  die  RETURN-Taste  und 
geben  folgende  Zeile  im  Direktmodus  ein: 

OPEN  1,8,1  "RE ASS  DEMO,P,W”:CMD  1:SYS 
49152, $1000, $1FD7:GOTO  100  <  RETURN  > 

Mit  dem  OPEN-Befehl  wird  ein  Programmfile  mit  dem  Namen 
»REASS  DEMO«  zum  Schreiben  geöffnet.  Der  nachfolgende 
CMD-Befehl  leitet  die  Ausgabe  des  Quelltextes  auf  dieses  File 
um.  Durch  den  SYS-Befehl  wird  dem  Reassembler  die  Start- 
und  Endadresse  des  Maschinenprogramms  mitgeteilt.  Der 


GOTO-Befehl  startet  schließlich  das  Informationsprogramm 
(der  RUN-Befehl  darf  dazu  nicht  benutzt  werden,  da  er  das  ge¬ 
öffnete  File  schließen  würde).  Die  »T«-Befehle  im  Informations¬ 
programm  werden  ausgeführt,  bis  der  »E«- Befehl  Bit  5  setzt 
und  den  Reassembler  startet.  Das  gesetzte  fünfte  Bit  bewirkt, 
daß  externe  Label  und  Tabellenlabel  speziell  gekennzeichnet 
werden. 

Das  so  auf  Diskette  erzeugte  Programmfile  kann  mit  LOAD 
"REASS  DEMO”, 8  geladen,  geLISTet,  editiert  und  assembliert 
werden.  (Martin  Wehner/ah) 
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Listing  zum 

>Reassembler« 

(Schluß) 

Jetzt  märchenhaftes  Matnespiel 
für  Schüler  -  und  Profitool 
für  Nachhilfelehrer  zugleich 


Ein  paar  Fragen  an  den  Autor  des  intelligenten  Algebraprogramms 


AK:  Herr  Ostermann,  auf  der  CFA  84  in  Frank¬ 
furt  haben  Sie  ALI  der  Öffentlichkeit  vorgestellt. 
Wie  war  die  Resonanz? 

OS:  Es  hat  auf  Anhieb  positive  Tests  und  begei¬ 
sterte  Anwender  gegeben  -  aber  jetzt  mit  der 
neuen  Version  geht  es  erst  richtig  los. 

AK:  Worauf  basiert  diese  Einschätzung? 

OS :  ALI  war  von  Anfang  an  ein  absolut  einzigar¬ 
tiges  Mathematikprogramm,  das  es  in  vergleich¬ 
barer  Form  bis  heute  nicht  gibt,  weder  für  den 
C64  noch  für  irgendeinen  anderen  Computer. 
ALI  wird  von  Eltern  und  Schülern  eingesetzt, 
um  teure  Nachhilfe  zu  sparen,  neuerdings  sogar 
auch,  um  selbst  Nachhilfe  zu  geben.  Kollegen 
benutzen  das  Programm  als  Lehrertool. 

AK:  Und  was  hat  sich  sonst  inzwischen  getan? 
OS :  Ich  habe  ein  volles  Jahr  Arbeit  in  die  Weiter¬ 
entwicklung  von  ALI  investiert. 

AK:  Mit  welchem  Ergebnis? 

OS:  Vom  Ergebnis  überzeugen  Sie  sich  am  be¬ 
sten  selbst.  Wir  sind  auch  dieses  Jahr  wieder  in 
Frankfurt,  CFA  85  -  Messestand  323. 

AK:  Können  Sie  uns  die  wichtigste  Neuerung 
verraten? 

OS :  Bisher  bestand  ALI’s  Job  ausschließlich  da¬ 
rin,  mustergültig  vorzurechnen.  Was  gefehlt  hat 
war  die  Möglichkeit,  auch  nach  Eintippen  der 
Aufgabe  selbst  aktiv  in  den  Programmablauf 
einzugreifen. 

AK:  Und  das  ist  jetzt  anders? 

OS :  Ja.  Es  ist  nun  ohne  weiteres  möglich,  in  jede 
Zeile  eigene  Lösungsvorschläge  einzubringen. 
Diese  werden  kontrolliert  und  wenn  nötig  ver¬ 
bessert.  Am  Ende  gibt  es  dann  eine  kleine 
Erfolgsbilanz. 


AK:  Wie  viele  Aufgaben  hat  ALI  in  seinem  Re¬ 
pertoire? 

OS:  Wie  viele  Aufgaben  hat  Ihr  Taschenrechner 
in  seinem  Repertoire?  ALI  bietet  natürlich  auch 
selbst  Aufgaben  an,  aber  sogar  diese  werden  ge¬ 
nauso  gerechnet,  wie  wenn  Sie  eigene  Aufgaben 
eingeben,  die  ALI  nie  zuvor  gesehen  hat. 

AK:  Spielen  Sie  damit  an  auf  die  Möglichkeit, 
quadratische  Gleichungen  der  Form 
ax2  +  bx  +  c  =  0  mit  unterschiedlichen  Zahlen 
für  a,  b,  und  c  einzugeben? 

OS:  Um  Himmels  willen!  Nein  -  ALI  akzeptiert 
selbstverständlich  auch  nicht-langweilige  Glei¬ 
chungen.  Wie  wärs  mit 

(3x  +  5)2  -  3x  (2x  - 17  =  29x  -45  -  (x-  2)  (x  +  2)? 
Diese  Gleichung  wird  in  etwa  zehn  Zeilen  ge¬ 
löst.  Genau  so  übrigens,  wie  ich  es  als  Lehrer  an 
der  Tafel  tue. 

AK:  Für  welchen  Schultyp  ist  ALI  gemacht? 
OS:  In  erster  Linie  für  Gymnasium  und  Real¬ 
schule.  Aber  gerade  auch  von  einem  Berufs¬ 
schullehrer  habe  ich  einen  Brief  bekommen,  in 
dem  das  Programm  als  „in  idealer  Weise  geeig¬ 
net  für  alle  weiterluhrenden  Schulen”  bezeich¬ 
net  wird. 

AK:  In  welchen  Jahrgangsstufen  ist  ALI  einselz¬ 
bar? 

OS:  Ob  Unterstufe,  Mittelstufe  oder  Obestufe  - 
ALI  fördert  jeden  Schüler,  der  mit  ihm  arbeitet. 
Im  Unterschied  zu  ZENON  liegt  bei  ALI  der 
Schwerpunkt  allerdings  im  Bereich  der  Mittel¬ 
stufe,  was  ja  schon  aus  der  Bezeichnung  Algebra¬ 
programm  ersichtlich  ist. 

AK:  Wer  ist  ZENON? 

OS:  Zenon  hat  mit  dem  Paradoxen  von  Achill 
und  der  Schildkröte  an  das  Geheimnis  der  Infi- 


nitesimalrechung  gerührt.  Er  wird  mir  nicht  bö¬ 
se  sein,  daß  ich  mir  seinen  Namen  ausgeliehen 
habe  für  ein  Kurvendiskussionsprogramm,  das 
ganz  speziell  auf  die  Anforderungen  von  10. 
Klasse  und  Oberstufe  zugeschnitten  ist. 

AK:  Zurück  zu  ALI.  Welche  Aufgaben  sind  es, 
die  ALI  löst? 

OS:  Das  geht  vom  Ausrechnen  verschachtelter 
Klammem  über  negative  Zahlen,  Ungleichun¬ 
gen,  Termvereinfachungen,  binomische  For¬ 
meln,  Ausklammem  und  Faktorenzerlegung, 
Bruchgleichungen,  lineare  und  quadratische 
Gleichungen  bis  hin  zur  Nullstellenbestim¬ 
mung  höheren  Grades.  Mit  der  Variablen  x  bis 
zur  Potenz  x-"1  beherrscht  ALI  wirklich  die  ge¬ 
samten  Grundlagen  der  Algebra.  Darüber- 
hinaus  erstellt  er  Wertetabellen,  zeichnet  Gera¬ 
den  und  Parabeln,  jetzt  übrigens  in  hochauflö¬ 
sender  Grafik.  Eintippen  der  Aufgabe  genügt . . . 
AK: .  .  .  und  dann  geht  alles  nachvollziehbar, 
Schritt  für  Schritt.  Unter  Einbeziehung  der  Lö¬ 
sungsvorschläge  des  Benutzers? 

OS:  Wenn  gewünscht.  So  ist  es.  Dazu  gibt  es  ein 
ausführliches  I  landbuch  mit  den  grundlegenden 
mathematischen  Lösungsverfahren.  Und  als  Zu¬ 
gabe  Trick  17. 

AK:  Die  wichtigste  Frage  zuletzt:  Was  unter¬ 
scheidet  ALI  von  vergleichbaren  Mathematik¬ 
programmen? 

OS:  Es  gibt  kein  vergleichbares  Mathematikpro¬ 
gramm. 

*  *  * 

ALI  -  das  intelligente  Algebraprogramm,  C64 
Diskette  mit  Handbuch  DM  99,-* 

Handbuch  vorab  DM  19,-* 

Eintausch  neue  Version  gegen  alte  DM  29,-* 

*  unverb.  Preisempfehlung. 

Bei  Vorkasse  bar  oder  Scheck  versandkostenfrei. 
Bestellungen  -  auch  telefonisch  -  direkt  an: 
HEUREKA® -TEACHWARE 
Dipl-Phys.  Peter  Ostermann 
D-8000  München  21 
Wastl-Witt-Str.  46  ©  0  89  -  70  63  83 
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Herzoperation 

Haben  Sie  sich  eine  Kombination  von 
Hypra-Load  und  Hypra-Save  ge¬ 
wünscht?  Bitte,  hier  ist  sie,  und  als 
Draufgabe  gibt  es  sogar  noch  das  DOS 
5.1.,  eine  Super-Centronics-Schnitt- 
stelle,  Funktionstastenbelegung  und 
einiges  mehr. 

Das  Betriebssystem  des  C  64  umfaßt,  einschließlich  des 
Basic-Interpreters  16  KByte,  die  in  zwei  ROM-Bausteinen  auf 
der  Computer-Platine  untergebracht  sind.  Die  in  diesen  ROMs 
abgespeicherten  Maschinenprogramme  könnte  man  auch  als 
das  »Herz«  des  C  64  bezeichnen,  denn  ohne  Betriebssystem 
ist  der  Computer  nichts  als  eine  mehr  oder  weniger  sinnvolle 
Ansammlung  von  elektronischen  Bauteilen.  Durch  Austausch 
des  Betriebssystems  (Kernal-ROM)  könnte  man  beispielswei¬ 
se  den  gesamten  C  64  so  verändern,  daß  er  nur  noch  äußerlich 
dem  Original  gleicht.  So  weit  wollen  wir  aber  nicht  gehen,  denn 
der  C  64  soll  auch  nach  der  Veränderung  des  Kernal-ROMs 
noch  mit  den  meisten  Programmen  für  den  unveränderten 
Computer  funktionieren.  Das  Betriebssystem  wird  deshalb 
nicht  komplett  ersetzt,  sondern  nur  einzelne  Teile  davon  ver¬ 
bessert.  Dazu  gehört  das  schnellere  Laden  (Hypra-Load),  das 
schnellere  Speichern  (Hypra-Save),  eine  Centronics- 
Schnittstelle  am  User-Port  und  das  DOS  5.1  einschließlich  ei¬ 
ner  Funktionstastenbeiegung.  Da  man  aus  8  KByte  (denn  nur 
der  Bereich  $EOOO-$FFFF  wird  verändert)  natürlich  nicht 
mehr  machen  kann  als  8  KByte,  müssen  Teile  des  alten  Be¬ 
triebssystems  entfallen.  In  diesem  Fall  ist  das  die  Ansteuerung 
der  Datasette  und,  falls  man  eine  Super-Centronics  Schnitt¬ 
stelle  haben  möchte,  auch  die  RS232. 


Vier  Programme  in  einem 


Das  hier  abgedruckte  Basic-Programm  (Listing)  erzeugt 
selbständig  eines  der  vier  zur  Auswahl  stehenden  neuen  Be¬ 
triebssysteme.  Das  geänderte  Betriebssystem  steht  nach  feh¬ 
lerlosem  Durchlauf  des  Programms  im  Speicherbereich 
$8000  bis  $9FFF  ihres  C  64  und  wird  gleichzeitig  als  Maschi¬ 
nenprogramm  mit  dem  Namen  »Superkernal«  auf  Diskette  ge¬ 
speichert.  Um  das  neue  Betriebssystem  zu  aktivieren,  muß 
das  Maschinenprogramm  »Superkernal«  auf  einem  EPROM 
vom  Typ  2764  gespeichert  werden.  Dieses  EPROM  ist  dann 
das  neue  Kernal-ROM,  das  an  die  Stelle  des  Original-ROMs 
auf  den  Steckplatz  U4  des  C  64  gesetzt  wird  (Achtung:  Garan¬ 
tieverlust).  Da  2764-EPROM  und  Original-ROM  eine  unter¬ 
schiedliche  Pin-Belegung  haben,  braucht  man  dazu  einen 
Adaptersockel  (Tabelle  1). 

Aus  dem  Wissen  heraus,  daß  jeder  seinen  C  64  für  eine  an¬ 
dere  Anwendung  benutzt,  haben  wir  die  Wahl  zwischen  vier 
verschiedenen  Kernal-Versionen  vorgesehen.  Außerdem  kön¬ 
nen  Sie  sich  die  gewünschte  Farbkombination  der  Bildschirm¬ 
darstellung  einstellen  und  zwischen  Text-  oder  Grafikmodus 
nach  dem  Einschalten  wählen.  Um  Ihnen  die  Wahl  zu  erleich¬ 
tern,  ist  hier  eine  kurze  Beschreibung  der  einzelnen  Kernal- 
Versionen. 

Kernal  0:  Hypra-Load/DOS  5.1/Funktionstastenbelegung/ 
Renew/RS232 

Kernal  1:  Hypra-Load/DOS5.1/Funktionstasten/Super- 
Centronics/Renew 
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Kernal  3:  Hypra-Load/DOS5.1/Funktionstasten/Hypra- 
Save 

Kernal  4:  Hypra-Load/DOS5.1./Funktionstasten/Hypra- 
Save/Centronics  klein 

Die  vier  Betriebssysteme  sind  nicht  grundsätzlich  verschie¬ 
den.  Allen  gemeinsam  ist  die  Hypra-Load-Routine  und  das 
DOS  5.1,  das  Sie  von  der  VC  1541  Demodiskette  her  kennen. 
Außerdem  wurde  eine  Old-  beziehungsweise  Renew-Funktion 
implementiert.  Mit  den  Tasten  CTRL  und  STOP  (bitte  beide  Ta¬ 
sten  gleichzeitig  drücken)  ist  ein  durch  NEW  oder  Reset  ge¬ 
löschtes  Basic-Programm  wieder  da.  Außerdem  sind  die 
Funktionstasten,  deren  Belegung  Sie  in  gewissen  Grenzen  mit 
einem  Monitor  selbst  wählen  können  (Sie  finden  die  Belegung 
nach  dem  Durchlauf  des  Basic-Programms  in  dem  Bereich 
$9B97-$9BCF)  überall  vorhanden.  Bitte  achten  Sie  darauf, 
daß  der  Funktionsstring  immer  von  zwei  Funktionstasten- 
Codes  ($85-$8C)  eingegrenzt  ist.  Bei  den  Funktionstasten 
wurde  ein  Punkt  gegenüber  Hypra-Perfekt  (Ausgabe  4/85) 
verändert:  Sie  sind  nach  dem  Einschalten  des  Rechners  zu¬ 
nächst  nicht  belegt,  wodurch  gekaufte  Programme  jetzt  ein¬ 
wandfrei  laufen.  Eingeschaltet  werden  die  Funktionstasten 
ganz  einfach  durch  »CTRL  +«.  Wenn  man  sie  nicht  mehr 
braucht,  ist  es  möglich,  sie  durch  »CTRL—«  wieder  abzuschal¬ 
ten. 

Wenn  Sie  Hypra-Save  gewählt  haben,  ist  folgendes  zu  be¬ 
achten:  Nach  dem  Speichern  eines  Programms  muß  bei  weite¬ 
ren  Speichervorgängen  die  Laufwerknummer  angegeben 
werden.  Ansonsten  funktioniert  Hypra-Save  wie  es  in  der  Aus¬ 
gabe  8/85  beschrieben  wurde.  Außerdem  können  jetzt  die 
Besitzer  von  Druckern  mit  Centronics-Schnittstelle  aufatmen: 
Der  User-Port  wurde  zur  vollwertigen  Centronics-Schnittstelle 
umprogrammiert.  Der  Drucker  kann  einfach  so  angesprochen 
wer,.  als  wäre  er  am  seriellen  lEC-Bus  angeschlossen. 
Zwei  Versionen  stehen  hier  zur  Verfügung:  Diejenigen,  die  auf 
Hypra-Save  nicht  verzichten  können,  müssen  sich  aus  Platz¬ 
gründen  leider  mit  einer  abgemagerten  Version  zufrieden  ge¬ 
ben,  die  das  Drucken  der  Commodore-Grafikzeichen  nicht  er¬ 
laubt.  Ohne  Hypra-Save  ist  eine  Centronics-Schnittstelle  mög¬ 
lich,  die  auch  die  Grafik-  und  Cursorsteuerzeichen  druckt!  Un¬ 
ter  Geräteadresse  5  werden  die  Cursorsteuerzeichen  so  wie¬ 
dergegeben,  wie  man  es  vom  Bildschirm  gewohnt  ist  —  als  re- 
verse  Zeichen.  Ein  korrekter  Listingausdruck  ist  somit  auch 
ohne  teures  Interface  möglich.  Sollten  Sie  keinen  Epson  oder 
einen  vergleichbaren  Drucker  besitzen,  so  tragen  Sie  bitte  in 
den  Zeilen  1817  bis  1823  die  für  Ihren  Drucker  gültige  Um¬ 
schaltsequenz  für  den  Bitmustermodus  ein,  wobei  die  Adres¬ 
se  28595  die  Zeichenzahl  der  Umschaltsequenz  enthalten 
muß  (Achtung:  nicht  mehr  als  fünf  Zeichen).  Bei  Öffnen  des 
Druckerkanals  mit  der  Sekundäradrese  0  (oder  ohne  Sekun¬ 
däradresse)  wird  im  Großschrift-/Grafikmodus  gedruckt. 
Drucken  im  Textmodus  wird  wie  bei  den  Commodore- 
Druckern  durch  Sekundäradresse  7  erreicht. 

Durch  die  mögliche  Veränderung  der  Voreinstellung  des 
Textmodus  (große  und  kleine  Buchstaben)  anstelle  des  übli¬ 
chen  Grafikmodus,  wird  auch  die  Centronics-Schnittstelle 
beeinflußt:  Beim  Öffnen  eines  Druckerkanals  mit  der  Sekundär¬ 
adresse  0  (oder  ohne)  arbeitet  auch  der  Drucker  im  Textmo¬ 
dus  mit  großen  und  kleinen  Buchstaben.  Durch  die  Sekundär¬ 
adresse  7  wird  er  in  den  Grafikmodus  umgeschaltet.  Zum  An¬ 
schluß  eines  Druckers  mit  Centronics-Schnittstelle  benötigen 
Sie  übrigens  nur  ein  einfaches  Kabel,  dessen  Bauteile  zusam¬ 
men  weniger  als  40  Mark  kosten.  Wie  Sie  den  User-Port  mit 
dem  Drucker  verbinden  müssen,  ist  in  Tabelle  2  beschrieben. 

Ein  Tip  noch  zum  Schluß:  Das  DOS  5.1  läßt  sich  mit  dem  Befehl 
@Q  abschalten.  Um  das  DOS  5.1  danach  wieder  zu  aktivieren, 
brauchen  Sie  nur  die  Taste  F6,  beziehungsweise  den  Befehl 
SYS  61844  im  Direktmodus  einzugeben. 
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Obwohl  Super-Kernal  den  Speicherbereich  des  Betriebssy¬ 
stems  schon  fast  komplett  ausnutzt,  ist  sicherlich  noch  die  ei¬ 
ne  oder  andere  Erweiterung  denkbar  —  man  darf  gespannt 
sein.  Falls  es  Ihnen  nicht  möglich  sein  sollte,  das  Kernal  selbst 
zu  brennen,  besteht  die  Möglichkeit,  fertige  Betriebssystem- 
EPROMs  mit  Adapterplatine  zu  erhalten.  Lesen  Sie  dazu  unse¬ 
ren  Hardware- Leserservice. 

(Helmut  Eyssele/aw) 


USER-PORT-CENTRONICS 

Tabelle  2.  Verdrahtungsschema  der  Centronics- 
Schnittstelle  am  User-Port  (Stecker  für  User-Port:  TRW 
251-12-50-170;  für  Drucker:  36poliger  Amphenol-Stecker; 
Kabel:  Flach-  oder  Rundkabel  bis  1,5  m) 


1000 

POKE  56,128:  POKE  55,0:  CLR 

<  146> 

1256 

INPUT  "  {4SPACE}^TRIEBSSYSTEM";BE7. 

<082> 

1010 

REM 

<054> 

1260 

REM 

<  050  > 

1020 

REM  ******************************* 

<  140> 

1261 

IF  BE7.01  THEN  1300 

<215> 

1030 

REM  ***  *** 

<077> 

1262 

PRINT  "{DOWN}" 

<  1 94  > 

1040 

REM  ***  VIER  VERSCHIEDENE  *** 

<025> 

1263 

PRINT  SPC  (4)  "0  :  FUER  E_P.5_0J«l.  „DRUCKER" 

<  177> 

1050 

REM  ***  BETRIEBSSYSTEME  *** 

<209> 

126A 

PRINT  SPC  (4)  "  1  :  FUER  ELP.5_0_K  KOMPATIBL 

1060 

REM  *** 

<107> 

'  CDDWN  >  " 

<066> 

1070 

REM  ***  VON  *** 

<  131  > 

1269 

INPUT  "  ^SPACE^UCKERART"  ;  DR*/. 

<  040  > 

1080 

REM  ***  *** 

<  1 27  > 

1300 

REM 

<092> 

1090 

REM  ***  HELMUT  EYSSELE  *** 

<  1 19> 

1310 

PRINT  " {4DQWN , 4SPACE } " ; 

<  054  > 

1100 

REM  ***  *** 

<  147> 

1320 

PRINT  "KOPIEREN  DES  RO-tt  INS  Rtt.tt 1  " 

<234> 

1110 

REM  ******************************* 

<232> 

1330 

PRINT 

<  162> 

1120 

REM 

<  166> 

1340 

FÜR  1=980  TO  1009 

<232> 

1130 

PRINT 

CHR$<14) 

<095> 

1350 

:  READ  X:  POKE  I,X:  S=S+X 

<  1 46  > 

1140 

PRINT 

" {CLR , 5D0WN  } “ 

<213> 

1360 

NEXT  I 

<  174> 

1150 

PRINT 

"  {2SPACE>yj0REINSTELLUNB  NACH"; 

<  120> 

1370 

IF  S=4359  THEN  1410 

<073> 

1160 

PRINT 

"  DEM  £INSCH ALTEN:  {DOWN}" 

<208> 

1380 

PRINT  "LEHLER  IN  DEN  DttTttS  DER  "; 

<  105> 

1170 

PRINT 

SPC (4) " 1  :  GRAFIKMODUS" 

<  198> 

1390 

PRINT  "KOPIERROUTINE  !!":  END 

<031  > 

1 180 

PRINT 

SPC (4) "2  :  JEXTMODUSCDOWNJ" 

<053> 

1400 

DATA  169,224,160,  0,133,  96,132,  95 

<158> 

1190 

INPUT 

"  {4SPACE}flQDUS" ;  MOX 

<218> 

1401 

DATA  160,255,132,  90,132,  91,169,159 

<  0 1 8  > 

1200 

PRINT 

" {DOWN> " 

<  132> 

1402 

DATA  133,  89,132,  88,  32,191,163,173 

<  129> 

1201 

PRINT 

SPC (4)"  0  :  SCHWARZ C2SPACE>"; 

<129> 

1403 

DATA  255,255,141,255,159,  96 

<213> 

1202 

PRINT 

"  9  :  ORANGE" 

<061  > 

1410 

SY3  980:  REM  KERNAL  KOPIEREN 

<249> 

1203 

PRINT 

SPC (4) "  1  :  WE I SS {4SPACE  > " ; 

<233> 

1420 

REM 

<212> 

1204 

PRINT 

"  9  :  BRAUN" 

<251  > 

1450 

0F=81 92:  REM  OFFSET  BEI  POKE 

<214> 

1205 

PRINT 

SPC < 4)  "  2  :  ROT C6SPACE> " ; 

<  167> 

1460 

IF  M0*/.=2  THEN  1473 

<  120> 

1206 

PRINT 

"10  :  HELLROT" 

<  166> 

1461 

:  EM$="  BASIC  BYTES  FREE"+CHR$ < 13) 

<  178> 

1207 

PRINT 

SPC (4) "  3  :  TUERK I S C2SPACE > " ; 

<101> 

1462 

:  EM$=EM$+CHR$ ( 0 ) +CHR$  <147) +CHR* (13) 

<092> 

1208 

PRINT 

"11  :  GRAU  1 " 

<  1 1 7> 

1463 

:  EMS=EMä+ “ C3SPACE  >*** " 

<075  5- 

1209 

PRINT 

SPC (4)"  4  :  VIOLETT  C2SPACE}" ; 

<  046> 

1464 

:  IF  BE7.  AND  1  THEN  1468 

<065> 

1210 

PRINT 

"12  :  GRAU  2" 

<  159> 

1465 

:  EM$=EM*+"**  C64  DOS-HYPRA-BASIC" 

<  1 82  > 

121 1 

PRINT 

SPC (4)"  5  :  GRUEN  {4SPACE > " ; 

<229> 

1466 

:  EMi=EM=£+"  V2  *****  " 

<077> 

1212 

PRINT 

"13  :  HELLGRUEN“ 

<023> 

1467 

:  GOTO  1470 

<  1 19> 

1213 

PRINT 

SPC (4)  "  6  :  BLAU {5SPACE  > " ; 

<  203  > 

1468 

:  EM*=EM*+"  C64  DOS— HYPRA-CENT— " 

<097  > 

1214 

PRINT 

"14  :  HELLBLAU” 

<250> 

1469 

:  EM$=EM$+"BASIC  V2  ***" 

<010> 

1215 

PRINT 

SPC  <4) "  7  :  GELB {5SPACE > " ; 

<09B> 

1470 

:  EM*=EM*+CHR$< 13) +CHR$ <13> 

<  191  > 

1216 

PRINT 

"15  :  GRAU  3  {DOWN}" 

<064> 

1471 

:  EM^=EM4:+"  64K  RAM  SYSTEM  "+CHR$(0> 

<092> 

1217 

INPUT 

"  {4SPACE } ZE I CHENFARBE  "  ;  CO*/. 

<  1 18> 

1472 

GOTO  1484 

<208> 

1218 

INPUT 

"  {4SPACE  }  ÄAHMENFARBE  "  ;  RC7. 

<230> 

1473 

:  EM*="  M5.I.C.  BY_TE_5.  F_R_E_E." +CHR$  (13) 

<092> 

1219 

INPUT 

"  £4SPACE >ÜI  NTERGRUNDFARBE "  ;  HC7. 

<  199> 

1474 

:  EM$=EM:£+CHR$  ( 0 )  +CHR*  (147)  +CHR*  (13) 

<  104> 

1250 

PRINT 

" {DOWN}" 

<  182> 

1475 

:  EM$=EMS+" {3SPACE}***" 

<087  > 

1251 

PRINT 

SPC (4) "0  :  MIT  RS232-  5CHN I TTSTE 

1476 

:  IF  BE7.  AND  1  THEN  1480 

<  108> 

LLE" 

<215> 

1477 

:  EMi=EM*+“**  C64  D_D.5-tt_Y_P.Rtt- Ätt 5.1  C." 

<  086  > 

1252 

PRINT 

SPC  ( 4 )  "  1  :  MIT  G£KT_R_0_KIC_5- 5LHN I 

1478 

:  EM*=EM*+"  Ü2  *****  " 

<097  > 

TTSTELLE" 

<028> 

1479 

:  GOTO  1482 

<  197> 

1253 

PRINT 

SPC  (4)  "2  :  MIT  tt.Y_P.fUl-.5A VE " 

<  153> 

1480 

:  EMT=EMf  +  "  C64  D0_5-tt.Y_P_Rtt- C_Ltt_T-  " 

<  1 93  > 

1254 

PRINT  SPC  (4)  "3  :  MIT  tt.Y_P_R_Fl-.5iWE  UND  A 

Listing.  Basic-Programm  zum  Erzeugen  eines  neuen 

1255 

PRINT 

SPC  (4)  "  {4SPACE >TER  C_Ltt_T  R  0XI_C_5-_5 

Betriebssystems.  Bitte  beachten  Sie  die  Eingabe- 

CHNIT TSTELLE {DOWN > " 

<109> 
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1481 

1482 

1483 

1484 

1485 

1486 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
1620 
1621 
1622 

1623 

1624 

1625 

1626 

1627 

1628 

1629 

1630 

1631 

1632 

1633 

1634 

1635 

1636 

1637 

1638 

1639 

1640 

1641 

1642 

1643 

1644 

1645 

1646 

1647 

1648 

1649 
1800 
1801 
1802 

1803 

1804 

1805 

1806 
1807 
1810 
1811 
1812 

1813 

1814 

1815 

1816 

1817 

1818 
1019 
1820 
1821 
1822 
1823 
1880 
1881 
1882 

1883 

1884 

1885 

1886 

1887 

1888 

1889 

1890 

1900 

1901 

1902 

1903 


:  EM*=EM$+"BHS.I.C  V2  ***" 

:  EM*=EM*+CHR*(13)+CHR*<13) 

:  EM$=EM*+"  64JL  £ßü  .5.Y.5.TEJ1  "+CHR$(0> 

FOR  1=1  TO  78 

:  POKE  25694+OF+I ,ASC(MID$ (EM*, I , 1 ) > 

NEXT  I 
REM 

REM  FARBEN  UND  ZEICHENMODUS 
REM  EINSPEICHERN 
REM 

POKE  25909+OF,CO7. 

POKE  27865+OF ,  RCX :  POKE  27866+OF  ,HC7. 

IF  M07.=2  THEN  POKE  27857+0F,22 
REM 

REM  DATA  ZEILEN  LESEN 
REM 

PR I NT  M  <2D0WN , 4SPACE > ”  ; 

PRINT  ".LESEN  DER  JUTTA  ZEILEN ! {DOWN > " 

REM 

REM  HYPRA-LOAD  UND  DOS  5.  1 
REM 

BL=0:  GOSUB  1900 
REM 

REM  RS232  ELIMINIEREN 
REM 

IF  BE7.O0  THEN  SOSUB  1900 
IF  BE7.  =0  THEN  GOSUB  1920 
REM 

REM  HYPRA-SAVE 
REM 

IF  (BE7.  AND  2)  =2  THEN  GOSUB  1900 
IF  (BE7.  AND  2>=0  THEN  GOSUB  1920 
REM 

REM  CENTRONICS  ALLGEMEIN 
REM 

IF  (BE7.  AND  1)=1  THEN  GOSUB  1900 
IF  (BE7.  AND  1 )  =0  THEN  GOSUB  1920 
REM 

REM  CENTRONICS  ABGEMAGERT 
REM 

IF  BE7.  =3  THEN  GOSUB  1900 
IF  BEX<>3  THEN  GOSUB  1920 
REM 

REM  CENTRONICS  AUSFUEHRLICH 
REM 

IF  BE7.  =1  THEN  GOSUB  1900 
IF  BE7.01  THEN  GOSUB  1920 
REM 

IF  M07.=2  OR  (BE7.  AND  1 )  =0  THEN  1810 
REM 

REM  VOREINGESTELLTEN  AUSGABEMODUS 
REM  DER  CENTRONICS-SS  AENDERN 
REM 

POKE  29727 +0F ,129:  POKE  29730+OF,12B 
POKE  29773+OF,  9:  POKE  29774+OF,  64 

POKE  29776+OF,  41:  POKE  29777+0F,191 
REM 

IF  BE7.01  THEN  1880 
REM 

REM  UMSCHALTSEQUENZ  IN  DEN 
REM  GRAFIKMODUS  EINSPEICHERN 
REM 

IF  DR7.O0  THEN  1820 

:  POKE  28595+OF,  5:  POKE  29221+0F,27 
:  POKE  29222+QF ,42:  POKE  29223+OF,  4 
s  POKE  29224+OF,  8:  POKE  29225+OF ,  0 
IF  DR7.01  THEN  1880 

:  POKE  28595+OF,  4:  POKE  29221+0F,27 
:  POKE  29222+OF , 75:  POKE  29223+OF,  8 
:  POKE  29224+OF,  0 
REM  ABSPEICHERN  »8000-9FFF 
SYS  57B 1 2 " SUPERKERNAL " , 8 : POKE  193,0  <224> 
POKE  194, 128: POKE  174,00: POKE  175,160  <090> 


SYS  62957 
PRINT  " <5D0 WN  > " SPC (16)"  f  AKT IG  !“ 

PRINT  “ <4D0WN>" 

PRINT  SPC (7) “BAS  NEUE  BETRIEBSSYSTEM" 
PRINT  " { 1 2SPACE >STEHT  IM  BEREICH  " 
PRINT"  {7SPACE>f8000-9FFF  UND  AUF  BISK 


PRINT  SPC (13)' 

END 

REM 

REM  LESEN  UND 
REM 

BL=BL+1 :  READ 


(32768-40959) 


SPEICHERN  DER  DAT AS 


A:  IF  A=0  THEN  RETURN 


<  198> 
<254> 
<003> 
<019> 

<  055  > 

<247  > 
<209> 

<  1 14> 

<  184> 
<06B> 

<  1 86  > 
<006> 


1904  :  READ  B  :  REM  ANZAHL  DER  BYTES  <067> 

1905  :  READ  PI:  REM  PRUEFSUMME  <054> 

1906  :  P2=0  <11 1> 

1907  :  PRINT  "Ä-OCK" ; BL; " <2SPACE>" ;  <199> 

1908  :  FOR  I=A  TO  A-l+B  <215> 

1909  :  READ  D:  POKE  I+OF,D:  P2=P2+D  <232> 

1910  :  NEXT  I  <020> 

1911  :  IF  P10P2  THEN  1913  <024> 

1912  PRINT  "OK":  GOTO  1903  <130> 

1913  PRINT  "ÜRUEFSUMME  FALSCH: ";P2  <244> 

1914  GET  A*:  IF  A$="H  THEN  1914  <255> 

1915  GOTO  1903  <157> 

1920  REM  <204> 

1921  REM  UEBERLESEN  VON  DATAS  <216> 

1922  REM  <206> 

1923  BL=BL+1:  READ  A:  IF  A=0  THEN  RETURN  <026> 

1924  :  READ  B  :  REM  ANZAHL  DER  BYTES  <087> 

1925  :  READ  PI:  REM  PRUEFSUMME  <074> 

1926  :  P2=0  < 131 > 

1927  :  PRINT  * BLOCK " ; BL ; " <2SPACE > " ;  <219> 

1928  :  FOR  I=A  TO  A-l+B  <235> 

1929  :  READ  D:  P2=P2+D  <038> 

1930  :  NEXT  I  <040> 

1931  :  IF  P10P2  THEN  1933  <108> 

1932  PRINT  "OK":  GOTO  1923  <166> 

1933  PRINT  ".PRUEFSUMME  FALSCH:  ";P2  <008> 

1934  GET  A$:  IF  A*=""  THEN  1934  <020> 

1935  GOTO  1923  <241> 

1992  REM  <020> 

1993  REM  AB  HIER  DATAS  <063> 

1994  REM  <022> 

1995  REM  DATAS  VON  HYPRA-LOAD  <098> 

1996  REM  UND  DOS  5.1  <228> 

1997  REM  ====================  < 193> 

1998  REM  <026> 

1999  REM  ====================  BLOCK  1  <072> 

2000  DATA  25499,2,287:  REM  $E39B-$E39C  <056> 

2001  DATA  45,242  <062> 

2002  REM  ====================  BLOCK  2  <09.1  > 

2100  DATA  25642,1,114:  REM  $E42A  <250> 

2101  DATA  114  < 1 17> 

||  ZU  io*  REM  ====================  BLOCK  3  <209> 

2200  DATA  25662,1,  95:  REM  4E43E  <063> 

2201  DATA  95  <21 1> 

2102  REM  ====================  BLOCK  4  <225> 

2400  DATA  257B3,31 ,4693:  REM  *E4B7-*E4D5  <140> 

2401  DATA  165,186,  32,177,255,169,111,133  <255> 

2402  DATA  185,  32,147,255,160,  0,185,  62  <016> 

2403  DATA  3,  32,168,255,200,196,183,144  <244> 

2404  DATA  245,  32,174,255,  76,234,242  <144> 

2405  REM  ==(==================  BLOCK  5  <034> 

2500  DATA  26094,8,1523:  REM  *E5EE-*E5F5  <252> 

2501  DATA  32,235,240,134,198,189,255,240  <231 > 

2502  REM  ====================  BLOCK  6  <147> 

2600  DATA  27455,3,378:  REM  *EB3F-*EB41  <215> 

2601  DATA  76,  52,250  <055> 

2602  REM  ====================  BLOCK  7  <009> 

2700  DATA  27511,2,373:  REM  *EB77-*EB78  <006> 

2701  DATA  123,250  <122> 

2702  REM  ====================  BLOCK  8  <125> 

2800  DATA  27879,9,1140:  REM  *ECE7-*ECEF  <206> 

2801  DATA  169,239,  45,  17,208,141,  17,208  <159> 

2802  DATA  96  <064> 

2803  REM  ====================  BLOCK  9  <242> 

2900  DATA  28564,3,396:  REM  »EF94-SEF96  <021 > 

2901  DATA  76,  65,255  <078> 

2902  REM  ====================  BLOCK  10  <221 > 

3000  DATA  28889,45,4434:  REM  *F0D9-*F105  <235> 

3001  DATA  76,207,  34,  42,  34,  44,  56,  44  <136> 

3002  DATA  49,  58,  0,  88,  32,124,248,  76  <132> 

3003  DATA  40,245,162,  0,189,216,240,  32  <128> 

3004  DATA  210,255,232,224,  11,208,245,162  <164> 

3005  DATA  6,120,  96,  0,  0,  0,  0,  13  <193> 

3006  DATA  82,  85,  78,  58,  13  <254> 

3007  REM  ====================  BLOCK  11  <102> 

3100  DATA  29049,47,6248:  REM  *F179-*F1A7  <161> 

3101  DATA  76,  19,247,  37,  47,  94,  95,  64  <035> 

3102  DATA  35,  81,  36,  0,243,243,243,245  <237> 

3103  DATA  250,252,245,250,141,141,141,148  <147> 

3104  DATA  161,  60,135,188,  76,  51,245,162  <202> 

3105  DATA  2,189,149,241,149,124,202,  16  <073> 

3106  DATA  248,169,  8,141,  60,  3,  96  <070> 

3107  REM  ====================  BLOCK  12  <236> 

Listing.  Basic-Programm  zum  Erzeugen  eines  neuen 
Betriebssystems  (Fortsetzung) 
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3200 

3201 

3202 

3203 

3204 

3300 

3301 

3302 

3303 

3400 

3401 

3402 

3500 

3501 

3502 

3503 

3504 

3505 

3506 

3600 

3601 

3602 

3603 

3604 

3605 

3606 

3607 

3608 

3609 

3610 

3700 

3701 

3702 

3703 

3800 

3801 

3802 

3900 

3901 

3902 

3903 

3904 

3905 

3906 

3907 

3908 

3909 

3910 

3911 

3912 

3913 

3914 

3915 

3916 

4000 

4001 

4002 

4003 

4100 

4101 

4102 

4103 

4104 

4105 

4106 

4107 

4108 

4200 

4201 

4202 

4300 

4301 

4302 

4303 

4304 

4305 

4306 

4307 

4308 

4309 

4310 

431 1 

4312 

4313 

4314 

4315 


DATA 

DATA 

DATA 

DATA 

REM  • 

DATA 

DATA 

DATA 

REM  = 

DATA 

DATA 

REM  « 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

REM  s 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

REM  = 

DATA 

DATA 

DATA 

REM  = 

DATA 

DATA 

REM  = 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

REM  = 

DATA 

DATA 

DATA 

REM  = 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

REM  = 

DATA 

DATA 

REM  = 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 


29157,20,2166:  REM  $F1E5-$F1F7  <076> 

76,  19,247,169,  13,  32,  22,231  <176>. 

169,  0,  32,144,255,  32,142,166  <060> 

76,174,167,  0  <054> 

====================  BLOCK  13  < 1 09  > 

29226,9,1105:  REM  *F22A-$F232  <165> 

76,  19,247,  32,152,241,  76,  34  <117> 

228  < 199> 

====================  BLOCK  14  <240> 

29295,3,342:  REM  $F26F-$F271  <061> 

76,  19,247  <019> 

====================  BLOCK  15  < 1 17> 

29384,37,4865:  REM  $F2CB-$F2EC  <230> 
76,  19,247,165,186,  32,180,255  <071> 

169,111,133,185,  32,150,255,  32  <195> 

165.255.201,  13,240,  6,  32,  22  <083> 

231,  76,215,242,  32,  22,231,  32  <140> 

171.255,  76,121,  0  <189> 

====================  BLOCK  16  <  253  > 

29579,72,8418:  REM  $F38B-$F3D2  <221 > 

76,  19,247,166,  43,164,  44,173  <216> 

61,  3,201,  37,208,  3,169,  1  <227> 

44.169,  0,133,185,169,  0,  32  <01B> 

213,255,176,  28,173,  61,  3,201  <135> 

37,240,  21,165,175,133,  46,165  <177> 

174,133,  45,  32,  89,166,  32,  51  <108> 

165,173,  61,  3,201,  47,208,  3  <219> 

76,134,227,  76,232,241,165,186  <071> 

32,  12,237,169,111,  76,185,237  <097> 

====================  BLOCK  17  < 135> 

29869,11,1586:  REM  $F4AD-$F4B7  <185> 

201,  4,176,  7,169,  8,133,186  <105> 

234,234,234  <163> 

====================  BLOCK  18  <  005  > 

29945,8,919:  REM  $F4F9-*F500  <003> 

173.255,  3,  48,  3,  76,114,247  <092> 

====================  BLOCK  19  <136> 

30003,114,14644:  REM  $F533-$F5A4  <121 > 
133,166,134,167,186,189,  1,  1  <249> 

201.230.240,  4,201,140,208,  23  <0B5> 

189,  2,  1,201,167,240,  4,201  <137> 

164,208,  12,165,166,162,  4,221  G<t71>Of 

124.241.240,  17,202,  16,248,165  <157> 

166.166.167.201,  58,176,  3,  76 

128,  0,  76,138,  0,134,165,141 

61,  3,  32,  98,252,166,165,169 

62.133.187.169,  3,133,188,173 

60,  3,133,186,189,133,241,  72 

189.141.241,  72,  96,162,  2,189 

171,227,149,124,202,  16,248,  76 
134,227,  32,  89,225,169,  13,  32 

22,231,  76,203,242,  77,  45,  69 
59,  4 

====================  BLOCK  20 


30191,11,1 586 :  REM  $ F5EF-*F5F9 
201,  4,176,  7,169,  8,133,1B6 

234,234,234 

====================  BLOCK  21 

30297,54,6319:  REM  $F659-*F68E 
32,115,  0,240,  29,201,  34,240 

25,201,  61,240,  4,201,  58,208 

2,162,255,153,  62,  3,232,200 

76,158,252,162,  76,134,124,  76 
8,175,132,183,162,  76,134,124 
32,121,  0,240,  5,  32,115,  0 

208,251,  96,  77,  45,  87 

30354,1,248:  REM  *F692 
248 

====================  BLOCK  23 

30508 , 942 ,121 526 : REM*F72C— *F AD9 
32,201 ,243,160,253,185,143,245 

32.221.237.200.208.247.165,  20 

32.221.237.165,  21,  32,221,237 

169,  30,  32,221,237,160,  0,177 

172,  32,221,237,200,192,  30,144 
246,  32,254,237,  24,165,172,105 

30,133,172,144,  2,230,173,  24 

165,  20,105,  30,133,  20,144,  2 

230,  21,202,208,187,  96,160,  0 

177,187,201,  36,208,  26,  76,208 
251,  32,201,243,160,251,185,207 
251,  32,221,237,200,208,247,  32 
254,237,  32,239,237,  76,137,248 
169,143,133, 172,169,248,133,173 
169,  0,133,  20,169,  3,133,  21 


<217> 

<206> 

<  1 8B  > 

<222> 

<  199> 
<079> 
<07B> 
<092> 

<  165> 
<069> 
<235> 

<  143> 

<  151  > 
<209> 
<09B> 
<026> 

<  123> 
<087> 

<  163> 
<222> 
<049> 

<  151  > 

<  13B> 
<237> 
<225> 

<  1 14> 
<107> 
<031  > 

<  143> 
<103> 
<229> 

<  134> 

<  179> 

<  182> 
<242> 
<075> 
<052> 
<205> 
<051  > 
<046> 
<098> 
<005> 
<  183> 


4316 

4317 

4318 

4319 

4320 

4321 

4322 

4323 

4324 

4325 

4326 

4327 

4328 

4329 

4330 

4331 

4332 

4333 

4334 

4335 

4336 

4337 

4338 

4339 

4340 

4341 

4342 

4343 

4344 

4345 

4346 

4347 

4348 

4349 

4350 

4351 

4352 

4353 

4354 

4355 

4356 

r  -inas»' 

4358 

4359 

4360 

4361 

4362 

4363 

4364 

4365 

4366 

4367 

4368 

4369 

4370 

4371 

4372 

4373 

4374 

4375 

4376 

4377 

4378 

4379 

4380 

4381 

4382 

4383 

4384 

4385 

4386 

4387 

4388 

4389 

4390 

4391 

4392 

4393 

4394 

4395 

4396 

4397 

4398 

4399 

4400 

4401 


DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 


162,  15,  32,  44,247,  32,201,243 
160,251,185,165,244,  32,221,237 

200.208.247.173,  0,221,133,171 
32,231,236,  32,250,247,  32,  13 

248,  32,125,247,  8,166,174,164 

175,  40,  88,  96,169,  39,141,  0 

221,  44,  0,221,  80,251,169,  7 

141,  0,221,162,  7,202,208,253 

162,  4,173,  0,221,  42,  42,102 

176,106,102,176,234,234,202,208 
241,165,176,  73,255,  96,169,  7 

141,  0,221,  32,251,237,138,162 

255 . 234 . 234 . 234 . 202 . 208 . 252 . 1 70 
96,120,169,  1,133,167,160,255 

32,234,253,192,255,208,  3,  76 

228.240,  32,208,247,133,169,  32 

208.247.133.168.165.167.240,  30 
32,208,247,  32,208,247,169,252 

234.234.164.169.208,  29,198,168 

198,168,198,168,169,254,  24,229 
168,133,170,  76,  89,248,165,169 
208,  7,198,168,169,  0,  76,  66 

248.169.254.133.168.160,  0,  32 

208.247.145.174.230.174.208,  2 

230.175.198.168.208.241.162,  0 

134.167.165.169.208.160. 198.170 
240,  6,  32,208,247,  76,114,248 

169,  16,  13,  17,208,141,  17,208 
165,171,141,  0,221,169,  64,133 

144,  24,  96,165,  0,  41,  6,201 

2.240,  3,  76,158,253,169,  5 

133,  9,162,  90,134,  75,162,  0 

169,  82,133,  36,  32,  86,245,  80 

254.184.173,  1,  28,197,  36,240 
9,198,  75,208,239,169,  10,  76 

105,249,  80,254,184,173,  1,  28 

149,  37,232,224,  7,208,243,  32 

151,244,165,  22,  69,  23,  69,  24 
69,  25,  69,  26,240,  7,198,  9 

208.192,  76,  30,244,165,  24,197 

6.240,  3,  76,  11,244,133,  34 

169,  6,133,  49,  76,  28,  4,165 

18,166,  19,133,  22,134,  23,165 
6,133,  24,165,  7,133,  25,165 

22,  69,  23,  69,  24,  69,  25,133 
26,  32,  52,249,162,  90,  32,  86 

245.160,  0,  80,254,184,173,  1 

28,217,  36,  0,240,  6,202,208 

237,  76,  81,245,200,192,  8,208 

234,  32,  86,245,  80,254,184,173 
1,  28,145,  48,200,208,245,160 
186,  80,254,184,173,  1,  28,153 

0,  1,200,208,244,  32,224,248 

165,  56,197,  71,240,  3,  76,246 

244,  32,233,245,197,  58,240,  3 

76,  2,245,160,  0,169,  85,  32 

226,  3,185,  0,  6,  32,226,  3 

200.208.247.240,  50,133,119,162 

1,138,  44,  0,  24,240,251,169 

0,141,  0,  24,138,  44,  0,  24 

208.251.162,  4,169,  0,102,119 

42,  42,102,119,  42,  42,141,  0 

24,202,208,240,162,  2,202,208 

253,169,  8,141,  0,  24,  96,173 

0,  28,  9,  8,141,  0,  28,173 

0,  6,208,  3,  76,158,253,197 

24,208,249,133,  6,173,  1,  6 

133,  7,  76,100,  3,133,  0,  88 

165,  0,  48,252,120,  96,120,169 

8,141,  0,  24,165,  24,141,  0 

6,133,  6,165,  25,141,  1,  6 

133,  7,169,  4,133,120,169,226 

32,  50,  4,201,  2,144,  51,160 

0, 132,120,164, 120,185,219,254 
240,  18,  88,  32,118,214,120,169 
226,  32,  50,  4,201,  2,144,  26 

230.120.208.231.169.192,  32,  50 

4,169,226,  32,  50,  4,201,  2 

144,  8,169,255,  32,226,  3,  76 

34.235.173,  0,  6,240,248,197 

24.240.196.173,  0,  6,133,  6 

173,  1,  6,133,  7,  76,  79,  4 

232,134,198,201,133,144,  4,201 


141,144,  3,  76,  66,235,202,  72 

152,  72,160,  0,169,  32,  45,255 

3,240,  13,185,151,251,221,119 


<036> 

<226> 

<  177> 
<243> 
<236> 
<049> 

<  1 4 1  > 

<  1 19> 
<234> 
<227> 

<  125> 
<063> 

<  122> 

<24B> 

<  136> 
<244> 

<  125> 
<052> 

<  198> 
<016> 
<045> 
<216> 
<093> 
<017> 
<086> 

<  202  > 
<003> 
<073> 

<  185> 
<059> 
<052> 
<067  > 
<036> 

<  164> 
<218> 
<226> 
<090> 

<  154> 
<248> 
<027> 

<  137> 

<  1 4 1  > 

<  197> 
<01 1> 
<000> 

<  129> 
<242> 
<035> 
<057> 
<053> 
<110> 
<024> 

<  1 18> 
<249> 
<013> 

<  103> 
<097> 
<020> 

<  143> 
<240> 
<070> 
<023> 
<001  > 
<223> 
<037> 

<  180> 
<065> 

<  143> 

<  144> 

<  170> 

<  1 12> 

<  165> 
<066> 
<252  > 
<235> 
<010> 
<180> 
<000> 
<208> 

<  1 22  > 
<027> 
<004  > 
<061  > 
<036> 
<162> 
<  1  40  > 
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4402 

4403 

4404 

4405 

4406 

4407 

4408 

4409 

4410 

441 1 

4412 

4413 

4414 

4415 

4416 

4417 

4418 

4419 

4500 

4501 

4502 

4503 

4504 

4505 

4506 

4507 

4508 

4509 

4510 

4511 

4512 

4513 

4514 

4515 

4516 

4517 

4518 

4519 

4520 

4521 

4522 

4523 

4524 

4525 

4526 

4527 

4528 

4529 

4530 

4531 

4532 

4533 

4534 

4535 

4536 

4537 

4538 

4600 

4601 

4602 

4700 

4701 

4702 

4703 

4704 

4705 

4800 

4801 

4802 
4900 


DATA  2,240,  11,200,192,  57,208,243 
DATA  104,168,104,  76,  66,235,200,185 
DATA  151,251,201,133,144,  4,201,141 
DATA  144,238,236,137,  2,176,233,157 
DATA  119,  2,232,134,198,208,231,224 
DATA  6,208,  32,173,255,  3,164,203 
DATA  192,  40,208,  4,  9,  32,208,  6 
DATA  192,  43,208,  8,  41,192,141,255 
DATA  3,  76,159,250,192,  63,208,  3 
DATA  32,167,252,  76,224,234,152,240 
DATA  21,162,  5,189,124,241,240,  8 
DATA  205,  62,  3,240,  6,232,  16,243 
DATA 


76,183,228,  76,127,245,  76,203 
DATA  242,169,  96,133,185,  32,213,243 
DATA  165, 1B6,  32,  9,237,165,185,  32 

DATA  199,237,169,  0,133,144,160,  3 

DATA  32,229,251,  76,121,  0 

REM  ====================  BLOCK  24 

DATA  31639,294,32785:  REM  *FB97-*FCBC  <221> 
DATA  133,  76,207,  34,  36,  34,  44,  56  <252> 

13,137,  76,  79,  65,  68,134,  76 
73,  83,  84,  13,138,  83,  65,  86 
69,135,  82,  85,  78,  13,139,  83 


DATA 

DATA 

DATA 


<209> 
<012> 
<084  > 
<210> 

<  254  > 
<214> 

<  161  > 

<011> 

<  187> 

<  170> 
<072> 
<070> 
<209> 

<  1 30  > 

<254> 

<  1 12> 

<  129> 

<  102> 


DATA  217,  54,  49,  56,  52,  56,  13,136 
DATA 
DATA 

DATA  255,173,255, 


DATA  76, 
DATA  169, 
DATA 
DATA  208, 
DATA  240, 


DATA 

DATA 


71,  79,  83,  85,  66,140,  82,  69 
84,  85,  82,  78,136,255,255,255 
3,  41,  64,240,  3 

1,245,169,  13,  32,210,255 
0,133,144,160,  2,132,169 

32,  19,238,133,170,  32,225,255 
3,  76,  51,246,  32,  62,241 
9,201,  32,208,  5,  32,  62 

DATA  241,240,251,164,144,208,  47,  32 
DATA  19,238,164,144,208,  40,164,169 
DATA  136,208,211,166,170,  32,205,189 
DATA  169,  32,  32,210,255,  32,  19,238 
DATA  166,144,208,  18,170,240,  6,  32 

DATA  210,255,  76,  28,252,169,  13,  32 
DATA  210,255,160,  2,208,176,  32,  66 

DATA  246,166,  45,164,  46,  96,164,183 
DATA  136, 1B5,  62,  3,  41,  15,141,  60 

3,136,240,  20,185,  62,  3,  41 

15,168,240,  12,173,  60,  3,  24 

DATA  105,  10,136,208,251,141,  60,  3 

DATA  76,121,  0,160,  0,  32,115,  0 

DATA  170,208,  3,  76,123,246,169,  96 

DATA  133,124,165,122,  72,165,123,  72 
DATA  138,201,  34,240,  30,  32,115,  0 

DATA  208,247, 104,133, 123, 104,133, 122 
DATA  32,121,  0,162,  0,201,  34,240 

DATA  14,162,  2,228,123,208,  11,162 

DATA  0,240,  10,104,104,162,  0,  76 

DATA  89,246,  76,116,246,  76,  94,246 
DATA  160,  1,152,145,  43,  32,  51,165 

DATA  24,165,  34,105,  2,133,  45,165 

DATA  35,105,  0,133,  46,  96 

REM  ====================  BLOCK  25 

DATA  31946,5,453:  REM  *FCCA-*FCCE 

DATA  77,  45,  69,  69,193 

REM  ====================  BLOCK  26 

DATA  32221,28,3397:  REM  $FDDD-*FDF8 
DATA  169,  37,141,  4,220,169,  64,141 

DATA  5,220,  76,110,255,  32,208,247 
DATA  201,255,240,  2,160,  0,  96,  77 

DATA  45,  69,153,  1 

REM  ====================  BLOCK  27 

DATA  32577,7,872:  REM  $FF41-*FF47 
DATA  133,169,169,  1,133,171,  96 

REM  ============================== 

DATA  0  : REM  ENDEMARKE 


<027> 
<047> 
<039> 
<242> 
<  186> 
<  1 80  > 

<  023  > 
<212> 
<242> 
<248> 

<  159> 

<  229  > 
<1 15> 

<  230  > 
<123> 

<  2 1 2  > 

<042> 

<  1 19> 
<208> 

<  149> 

<  123> 
<201  > 
<043> 
<044> 

<  200  > 

<  1 30  > 

<  178> 

<  123> 
<073> 
<222> 
<096> 
<208> 
<022> 
<046> 
<012> 
<067> 
<253> 

<  1 78> 
<042> 
<093> 
<011> 
<04 1  > 

<  139> 
<053> 
<023> 
<230> 

<  173> 

<  124> 

<  162> 
<209> 


6000  DATA  30035,1,120:  REM  *F553 

6001  DATA  120 

6002  REM  ====================  BLDCK 

6100  DATA  30080,1,129:  REM  $F580 

6101  DATA  129 

6102  REM  ====================  BLOCK 

6200  DATA  30084,1,137:  REM  $F584 

6201  DATA  137 

6202  REM  ====================  BLOCK 

6300  DATA  31400,1,120:  REM  *FAA8 

6301  DATA  120 

6302  REM  ====================  BLOCK 

6400  DATA  31676,1,52:  REM  f FBBC 

6401  r  >TA  52 


5001 

5002 

5100 

5101 

5102 

5200 

5201 

5202 

5203 


DATA  1 1 

REM  ====================  BLOCK  29 

DATA  29006,5,462:  REM  $F 1 4E-*F 1 52 

DATA  76,  19,247,  24,  96 

REM  ====================  BLOCK  30 

DATA  29045,47,6244:  REM  $F175-F1A3 


DATA 

DATA 


76,  19,247,  37,  47,  94,  95,  64 

35,  91,  36,  0,243,243,243,245 


DATA  250 , 252 , 245 , 250 ,141,141,141,148 


<089> 

<0B2> 

<243> 

<  147> 

<  165> 
<053> 
<103> 
<049> 
<215> 


5204  DATA  161,  60,135,188,  76,  51,245,162 

5205  DATA  2,189,145,241,149,124,202,  16 

5206  DATA  248,169,  8,141,  60,  3,  96 

5208  REM  ====================  BLOCK  31 

5300  DATA  29147,19,2166:  REM  $F1DB-*F1ED 

5301  DATA  76,  19,247,169,  13,  32,  22,231 

5302  DATA  169,  0,  32,144,255,  32,142,166 

5303  DATA  76,174,167 

5304  REM  ====================  BLOCK  32 

5400  DATA  29219,2,149:  REM  *F223-$F224 

5401  DATA  144,  5 

5402  REM  ====================  BLOCK  33 

5500  DATA  29230,1,148:  REM  *F22E 

5501  DATA  148 

5502  REM  ====================  BLOCK  34 

5600  DATA  29288,10,1280:  REM  *F268-$F271 

5601  DATA  76,  19,247,173,  0,221,  76,218 

5602  DATA  250,  0 

5603  REM  ====================  BLOCK  35 

5700  DATA  29351,2,175:  REM  $F2A7-$F2A8 

5701  DATA  144,  31 

5702  REM  ====================  BLOCK  36 

5800  DATA  29639,1,222:  REM  *F3C7 

5801  DATA  222 

5802  REM  ====================  BLOCK  37 

5900  DATA  29705,3,342:  REM  $F409-*F40B 

5901  DATA  76,  19,247 

5902  REM  ====================  BLOCK 


38 


39 


40 


41 


42 


=  BLOCK  43 


44 


6402  REM  =============== 

6500  DATA  32341,1,102:  REM  $FE55 

6501  DATA  102 

6502  REM  ====================  BLOCK 

6600  DATA  32357,1,86:  REM  *FE65 

6601  DATA  86 

6690  REM  ============================== 

6691  DATA  0:  REM  ENDEMARKE 

6692  REM 

6693  REM  DATAS  FUER  HYPRASAVE 

6694  REM  ==================== 

6695  REM 

6606  REM  ====================  BLOCK  45 


<002> 

<  109> 

<  138> 
<049  > 
<094> 
<244  > 

<  12B> 

<233> 

<  1 77  > 

<  157> 
<072> 

<  053  > 

<  197> 

<  136> 

<  185> 

<  198> 
<039> 
<039> 
<062> 

<  126> 
<  166> 

<  195> 
<202> 
<221  > 
<07 1  > 

<  179> 
<235> 
<206> 
<089> 
<095> 
<082> 

<  134> 
<228> 
<165> 
<253> 
<025> 
<043> 

<  183> 

<  141  > 

<  175> 
<205> 
<013> 
<053> 

<  145> 

<  1 19> 
<1B5> 
<001  > 
<045> 
<01B> 
<222> 
<150> 

<  197> 
<064> 

<  153> 


<065> 

6700  DATA  28348,449,51973:  REM  $EEBC-*F0A3  <065> 


6701  DATA 

6702  DATA 

6703  DATA 


0,162,  1,134,  0,  41,  2,240 

16,166,152,134,  50,  32,  47,  4 


32,174, 

6704  DATA  249,162, 

6705  DATA 


3,  32,  4,  4,  76,105 

8,  32,  52,  3,162,  10 

32,  52,  3,162,  8,  32,244,  3 

6706  DATA  162,  10,  32,244,  3,165,140,  48 

6707  DATA  232,  16,227,134,  50,134,152,165 

6708  DATA  140,  16,  97,181,131,208,  93,189 

6709  DATA  50,  4,  32,126,  1,200,166,  50 

6710  DATA  169,128,149,131,165,128,149,  0 

6711  DATA  165,129,149,  1,177,  48,240,  28 

32,  33,241,166,130,246,181,208 

2,246,187,160,  0,165,128,145 

48,200,165,129,145,  48,165,128 


6712  DATA 

6713  DATA 

6714  DATA 


<088> 

<110> 

<110> 

<  163> 

<  1 1 1  > 
<  060  > 

<  151  > 
<234  > 
<222> 
<248> 
<012> 
<203> 
<037> 

<  153> 


4901 

REM  ============================== 

<007> 

6715 

DATA 

197, 

34,240, 

2,132,140,166, 

50 

<236> 

4990 

REM 

<226> 

6716 

DATA 

169, 

0,133, 

48,133,  51,133, 

46 

<064> 

4991 

REM  DATAS  ZUR  ELIMINIERUNG  DER 

<  120> 

6717 

DATA 

133, 

54,133, 

12,133,  80,169, 

187 

<243> 

4992 

REM  RS232— ROUT I NEN 

<127> 

6718 

DATA 

133, 

52,189, 

50,  4,133,  47, 

32 

<074> 

4993 

REM 

<  229 > 

6719 

DATA 

233, 

245, 133, 

58,189,  51,  4, 

32 

<246> 

4994 

REM  ====================  BLOCK  28 

<042> 

6720 

DATA 

163, 

247,166, 

50,181,131,240, 

82 

<204> 

5000 

DATA  28997,1,11:  REM  *F145 

<023> 

6721 

DATA 

32, 

47,  4, 

173,  0,  28,  41, 

16 

<072> 

6722  DATA  208,  3,  76,129,245,  32,  16,245  <136> 

6723  DATA  162,  9,  80,254,184,202,208,250  <076> 

6724  DATA  169,255,141,  3,  28,173,  12,  28  <167> 

6725  DATA  41,  31,  9,192,141,  12,  2B,169  <197> 

6726  DATA  255,162,  5,141,  1,  28,184,  80  <097> 

6727  DATA  254,184,202,208,250,160,187,177  <065> 
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6728 

6729 

6730 

6731 

6732 

6733 

6734 

6735 

6736 

6737 

6738 

6739 

6740 

6741 

6742 

6743 

6744 

6745 

6746 

6747 

6748 

6749 

6750 

6751 

6752 

6753 

6754 

6755 

6756 

6757 

6758 
6800 
6801 
6802 
6803 

6900 

6901 

6902 

6903 

6904 

6905 

7000 

7001 

7002 

7100 

7101 

7102 

7200 

7201 

7202 

7300 

7301 

7302 

7303 

7304 

7305 

7306 

7307 

7308 

7309 

7310 

731 1 

7312 

7313 

7314 

7315 

7316 

7317 

7318 

7319 

7320 

7321 

7322 

7323 

7324 

7400 

7401 

7402 

7403 

7404 

7405 

7406 

7407 

7408 

7409 


DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

REM  = 

DATA 

DATA 

DATA 

REM  = 

DATA 

DATA 

DATA 

DATA 

DATA 

REM  = 

DATA 

DATA 

REM  = 

DATA 

DATA 

REM  = 

DATA 

DATA 

REM  = 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

REM  = 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 


12,  80,254,184,141,  1,  28,200 

208,245,177,  48,  80,254,184,141 
1,  28,200,208,245,  80,254,  76 
0,254,  96,134,  50,  44,152,  1 

48,  42, 134, 152, 1B1, 131, 240, 242 
32,  47,  4,  32,  10,245,160,187 

177,  12,  80,254,184,  77,  1,  28 

208,  25,200,208,243,177,  48,  80 
254,184,  77,  1,  28,208,  12,200 

192,253,208,241,166,  50,169,  0 

149,131,  96,  76,197,246,189,  50 
4,133,  49,189,  51,  4,133,  13 

96,  5,  1,  6,  4,  88,  32,  25 

241,169,132,213,167,240,  5,149 

167,  32,  66,208,169,  64,141,249 

2,169,  1,133,131,  32,  7,209 

144,  3,  76,248,207,  32,  62,222 

246,181,169,  0,133,139,133,141 

169.128.133.140.165.128.133,  6 

169.224.133,  0,165,  0,  48,252 

240,  36,201,  1,240,234,165,  24 

133,  6,165,  25,133,  7,162,  0 

169,176,  32,125,213,  32,153,213 
169,226,  32,125,213,  32,153,213 
165,140,208,204,240,206,  76,  35 
219,  24,169,  0,  72,169,  32,162 

0,157,  0,  4,232,208,250,165 

168,  13,  0,221,141,  0,221,173 

17,208,  9,  16,141,  17,208,104 

96 

===================  BLOCK  46 

29113,13,1543:  REM  *F1B9-F1C5 
185,237,  44,255,  3,  48,  3,  76 

107,242,  76,  21,246 
==================  BLOCK  47 


<  197> 
<155> 
<03B> 
<210> 
<24B> 
<030> 
<027> 
<223> 
<104> 
<225> 
<014> 
<105> 
<226> 
<109> 
<224> 
<029> 

<  164> 
<027> 

<  124> 

<  131  > 
<207> 
<206> 

<  178> 
<047> 

<  1 15> 
<241  > 
<076> 
<214> 

<  159> 
<21 1  > 
<251  > 
<21 1  > 

<  163> 

<  136> 
<072> 
<085> 
<039> 
<146> 
<0B3> 
<037> 

<078> 
<082> 
<031  > 
<128> 

<  165> 
<077> 

<  1  20> 
<043> 


29166,30,3955:  REM  *F1EE-F20B 
133,185,  44,255,  3,  48,  22,162 

0,160,  0,177,187,201,  42,208 

10,162,128,198, 183,230, 187,208 
2,230,188,134,172,  96 
===================  BLOCK  48 

30194,1,6:  REM  *F5F2 
6 

==================  BLOCK  49 

30201,5,777:  REM  *F5F9-*F5FD 
169,  97,  32,238,241 
====================  BLOCK  50 

30226,3,501:  REM  *F612-*F614 
76, 184,241 

====================  BLOCK  51 

31450,178,23342:  REM  *FADA-*FBBB  <137> 
41,  7,133,168,169,240,  72,169  <179> 

95,  72,169,  0,133,144,  32,221 

237,  32,221,237,  32,254,237,165 

144.240,  2,  24,  96,160,104,166 

172,185,202,254,153,255,  3,136 

208,247,142,  82,  4,169,  0,133 

172.169,  4,133,173,169,  70,133 

20,169,  1,133,  21,162,  4,  32 

44,247,169,187,133,172,169,238 

133.173.169,  0,133,  20,169,  3 

133,  21,162,  14,  32,  44,247,  32 
201,243,160,251,185,249,252,  32 
221,237,200,208,247,  32,254,237 
120,  32,231,236,169,  4,141,  0 

221,173,  0,221,  48,251,  32,142 

251,165,172,141,  2,  4,165,173 

141,  3,  4,162,  4,  32,209,252 

176,  19,177,172,157,  0,  4,  32 

219.252.232.208.240,  32,209,252 

176,  3,169,255,  44,169,  0,  72 

141,  0,  4,202,142,  1,  4,  32 

114,254,162,  2,104,208,214,  76 

93,240 

====================  BLOCK  52 


an  .in 


32370,72,8679:  REM  *FE72-*FEB9 
160,  0,152,  89,  0,  4,200,208 

250,133,  20,  32,133,254,165,  20 
136,208,  3,185,  0,  4,133,149 

162,  0,  44,  0,221,  80,251,  44 

0,221,  16,  6,232,208,248,  76 

93,240,169,  20,141,  0,221,162 

4,169,  64,102,149,106,102,149 
106,  74,  74,141,  0,221,202,208 

240,162,  2,202,208,253,240,  8 


<034> 
<05B> 
<040> 
<110> 
<042> 
<016> 
<088> 
<101> 
<078> 
<221  > 

<  135> 

<  177> 
<213> 

<  169> 
<048> 

<  184> 
<040> 
<084> 
<089> 

<  164> 
<018> 
<056> 

<  197> 

<  139> 
<218> 

<  137> 

<  161  > 
<  180> 
<082> 
<093> 
<  166> 
<221  > 
<101> 


7410 

7500 

7501 

7502 

7503 

7504 

7505 

7506 

7507 

7508 

7509 

7510 

7511 

7512 

7513 

7514 

7515 

7516 

7590 

7591 

7592 

7593 

7594 

7595 

7599 

7600 

7601 

7602 

7603 

7604 

7700 

7701 

7702 

7800 

7801 

7802 

7900 

7901 

7902 
8000 


REM  ====================  BLOCK  53 

DATA  32450,113,11897:  REM  $FEC2-*FF32 
DATA  169,  4,141,  0,221,200,208,187 

DATA  96,160,  0,132,  17,169,  2,141 

DATA  0,  24,169,  4,  44,  0,  24,240 

DATA  251,169,  0,141,  0,  24,162,  3 

DATA  202,208,253,162,  4,173,  0,  24 

DATA  74,106,  74,102,133,  10,  10,102 
DATA  133,202,208,241,165,133,145,  48 
DATA  69,  17,133,  17,200,208,206,136 
DATA  96,133,  49,  32,  70,  1,177,  48 

DATA  72,  32,  74,  1,104,145,  48,169 

DATA  10,141,  0,  24,165,  17,240,232 

0,120,169,  10,141 
0, 136,208,253,202 
10,133,105,  76,  62 


DATA 

DATA 


3*j  — 

8003 

8004 

8005 
8100 
8101 
8102 
0103 

8104 

8105 

8106 

8107 

8108 

8109 

8110 
8111 
8112 

8113 

8114 

8115 

8116 

8117 

81 18 
8200 
8201 
8202 

8300 

8301 

8302 

8303 

8304 

8305 

8400 

8401 

8402 

8500 

8501 

8502 

8503 

8504 

8505 

8506 

8507 

8508 


76,  67,232, 

0,  24,162, 

DATA  208,250,169, 

DATA  4 

DATA  0  : REM  ENDEMARKE 
REM 

REM  DATAS  FUER  DIE  CENTRONICS- 
REM  SCHNITTSTELLE  ALLBEMEIN 
REM  ======================== 

REM 

REM  ===================  BLOCK  54 

DATA  25836,17,1896:  REM  *E4EC-*E4FC 
DATA  36,180,  48,  6,  32,151,238,  76 

DATA  68,237,138,  72,152,  72,165,149 
DATA  76 

REM  ===================  BLOCK  55 

DATA  27940,3,332:  REM  *ED24-*ED26 
DATA  76,  12,244 

REM  =================  BLOCK  56 

DATA  27969,3,540:  REM  *ED41-*ED43 
DATA  76,236,228 

REM  ==================  BLOCK  57 

DATA  28092,2,301:  REM  *EDBC-*EDBD 
DATA  57,244 

REM  ===================  BLOCK  58 

DATA  29353,27,3243:  REM  *F2A9-*F2C3 
DATA  141,  1,221,173,  13,221,173,  0 

DATA  221,  41,251,141,  0,221,  9,  4 

DATA  141,  0,221,169,  16,  44,  13,221 

DATA  240,251,  96 

REM  ====================  BLOCK  59 

DATA  29708,80,9457:  REM  »F40C-F45B 
DATA  201,  36,240,  17,201,  37,240,  10 
DATA  169,  0,133,180,  32,151,238,  76 

DATA  39,237,160,193,  44,160,192,169 
DATA  255,141,  3,221,  36,180,  48,  10 

DATA  152,  5,180,133,180,169,  0,  32 

DATA  169,242,  24,  88,  96,120,  36,180 
DATA  48,  4,  88,  76,  54,237,  72,  41 

DATA  31,201,  7,  8,165,180,  40,208 

DATA  3,  41,191,  44,  9,  64,133,180 

DATA  104,  41,240,201,224,208,219,240 
REM  ============================== 

DATA  0:  REM  ENDEMARKE 
REM 

REM  DATAS  FUER  DIE  ABGEMAGERTE 
REM  CENTRONICS-SCHNITTSTELLE 

REM 

REM  ==================  BLOCK  60 

DATA  25853,2,377:  REM  *E4FD-*E4FE 
DATA  137,240 

REM  ===================  BLOCK  61 

DATA  28797,31,3284:  REM  *F07D-$F09B 
DATA  91,  93,  94,160,164,  13,  91,  93 
DATA  94,  32,  95,  13,201,192,144,  11 
DATA  201,224,176,  5,  41,127,  9,  32 


41 , 191 , 168, 


76,124,244 
=====  BLOCK  62 


DATA  44, 

REM  ===== 

DATA  29092,8,900:  REM  $F1 A4-4F1AB 
DATA  36,180,112,  1,152,  76,  99,244 

REM  ==================  BLOCK  63 

DATA  29788,66,8801:  REM  SF45C-F49D 
DATA  24,189,131,240,  44,169,161,  32 
DATA  169,242,104,168,104,170,  24,  36 
DATA  163,  16,  4,169,  0,133,180,  88 

DATA  96,169,  13,  32,169,242,208,243 
DATA  162,  5,221,125,240,240,218,202 

DATA  16,248,201,  65,144,217,201,123 
DATA  176,211,201,  97,176,  7,201,  91 

DATA  176,203,  9,  32,  44,  41,  95,  76 


<059> 
<033> 
<  228 > 
<223> 

<  127> 
<253> 
<029> 

<  167> 

<  1 19> 
<219> 

<  181  > 
<204> 

<  143> 

<  1  B5> 

<  124> 

<  139> 
<068> 
<082> 

<  103> 
<031  > 
<240> 
<048> 
<207> 
<035> 

<  026  > 
<096> 
<248> 
<  168> 
<023> 
<063> 
<186> 
<102> 
<195> 
<218> 
<243> 
<071  > 
<044> 
<  162> 
<204> 
<247> 
<  166> 
<091  > 

<  192> 
<001  > 
<085> 
<062> 

<  109> 
<017> 
<218> 
<019> 
<240> 

<  171  > 
<024> 
<210> 
<249> 

<  1 08  > 

<  169> 

<  1 17> 
<045> 
<127> 
<039> 
<221  > 
<049> 

<  1B1  > 
<194> 
<059> 
<242> 
<016> 

<  1 13> 
<249> 
<041  > 

<  1 56  > 

<  1 05> 
<250> 

<  166> 
<218> 
<213> 
<031  > 
<076> 
<166> 
<205> 
<159> 
<013> 
<092> 
<042> 
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850«? 

DATA 

164,241 

<  185> 

8719 

DATA 

208,  9,  56,233,  64,160,216, 

36 

<  138> 

8510 

REM  ====================  BLOCK  64 

<  193> 

8720 

DATA 

180,112,  2,160,208,132,168, 

32 

<051  > 

8511 

DATA 

0  : REM  ENDEMARKE 

<008> 

8721 

DATA 

96,239,  76,  96,244,168,169, 

0 

<  144> 

8512 

REM 

<  192> 

8722 

DATA 

162,  7,157,  0,  1,202,  16, 

250 

<  138> 

8513 

REM  DATAS  FUER  DIE  AUSFÜEHRL I CHE 

<094> 

8723 

DATA 

152,  74,  74,  74,  74,  74,  24, 

101 

<078> 

8514 

REM  CENTRONICS-SCHNITTSTELLE 

<186> 

8724 

DATA 

168,133,168,152,  10,  10,  10, 

133 

<  1 4 1  > 

8515 

REM  = 

======================== 

<  102> 

8725 

DATA 

167,169,  1,133,182,120,165, 

1 

<  140> 

8516 

REM 

<  196> 

8726 

DATA 

41,251,133,  1,160,  7,177, 

167 

<219> 

8600 

DATA 

25853,2,437:  REM  $E4FD-$E4FE 

<033> 

8727 

DATA 

133,181,162,  7,  6,181,144, 

8 

<  122> 

8601 

DATA 

199,238 

<243> 

8728 

DATA 

189,  0,  1,  5,182,157,  0, 

1 

<060> 

8602 

REM  = 

-  BLOCK  65 

<061  > 

8729 

DATA 

202,  16,241,  6,182,136,  16, 

230 

<023> 

8700 

DATA 

28347,278,32636:  REM  *EEBB-*F000 

<060> 

8730 

DATA 

165,  1,  9,  4,133,  1,162, 

0 

<  1  12> 

8701 

DATA 

91,  93,  94,160,164,  13, 

91,  93 

<  083  > 

8731 

DATA 

189,  37,242,  32,169,242,232, 

224 

<  193> 

8702 

DATA 

94,  32,  95,  13,201,255, 

208,  2 

<  005  > 

8732 

DATA 

5,208,245,162,  7,189,  0, 

1 

<012> 

8703 

DATA 

169,126,201,192,144,  11, 

201,224 

<053> 

8733 

DATA 

32,169,242,202,  16,247,  24, 

96 

<038> 

8704 

DATA 

176,  5,  41,127,  9,  32, 

44,  41 

<  157> 

8734 

DATA 

169,  27,  32,169,242,169,  82, 

32 

<228> 

8705 

DATA 

191,162,  5,221,187,238, 

240,  59 

<  005  > 

8735 

DATA 

169,242,138,  76,169,242 

<076> 

8706 

DATA 

202,  16,248,201,  92,240, 

72,201 

<215> 

8736 

REM 

====================  BLOCK  66 

<090> 

8707 

DATA 

95,240,  95,201,  96,240, 

86,201 

<0 1 3> 

8800 

DATA 

29788,26,2992:  REM  *F45C-*F475 

<086> 

8708 

DATA 

32,144,  46,201,  65,144, 

39,201 

<078> 

8801 

DATA 

18,  32,169,242,104,168,104, 

170 

<  194> 

8709 

DATA 

160,176,  79,201,128,176, 

66,201 

<068> 

8802 

DATA 

24,  36,163,  16,  4,169,  0, 

133 

<028> 

8710 

DATA 

123,176,  66,201,  91,144, 

12,201 

<206> 

8803 

DATA 

180,  88,  96,169,  13,  32,169, 

242 

<  109> 

8711 

DATA 

96,144,  19,  36,180,  80, 

54,  41 

<04  1  > 

8804 

DATA 

208,243 

<015> 

8712 

DATA 

95,208,  11,  36,180,  80, 

7,  9 

<214> 

8805 

REM  = 

- - - 

<040> 

8713 

DATA 

32,208,  3,189,193,238, 

76,  93 

<07 1  > 

8806 

DATA 

0  : REM  ENDEMARKE 

<049> 

8714 

DATA 

244,168,169,  1,  36,180, 

8,152 

<  140> 

8807 

REM  = 

— 

<042> 

8715 

DATA 

40,240,243,  9,128,208, 

30,162 

<  209  > 

©  64 

8716 

DATA 

3,  32,195,239,169,  35, 

32,169 

<  1 19> 

8717 

DATA 

242,162,  0,  32,195,239, 

76,  96 

<  245  > 

8718 

DATA 

244,  9,  64,208,  8,  56, 

233,  32 

<083> 

Listing.  Neues  Betriebssystem  (Schluß) 

Hier  gibt's  Clubs 

Um  Euch  und  den  Clubs  unnö¬ 
tige  Kosten  und  Zeit  zu  ersparen, 
einige  Hinweise.  Bei  schriftli¬ 
chen  Anfragen  an  die  Clubs, 
sollte  generell  ein  ausreichend 
frankierter  Umschlag  beigefügt 
werden.  Bevor  man  einem  Club 
beitritt,  sollte  man  sich  über  des¬ 
sen  Status,  Mitgliederzahl,  Bei¬ 
tragssätze  (soweit  nicht  mit  auf¬ 
geführt)  und  Gebühren  für  Lehr¬ 
gänge  informieren  lassen.  Aus 
Platzgründen  und  der  Über¬ 
sichtlichkeit  wegen  sind  neben 
den  Adressen  nur  einige 
Schwerpunkte  mit  angegeben. 
NO  NAME 

Ralf  Hottmeyer,  Mudersba- 
cherstr.  81,  5000  Köln  91,  Tbl. 
0221/840521. 

Kein  Beitrag,  Treffen  jeden  er¬ 
sten  Sonntag  im  Monat.  Haupt¬ 
sächliches  Interesse  ist  die 
Hardware. 

Sigi-Soft  Computerclub 

Sigmar  Bröhl,  Rosenharth  4, 5207 
Ruppichteroth  1. 

Clubtreffen,  Zeitschrift,  Soft¬ 
warebibliothek. 

Computerclub  OUTLAWS  '64 

Sudetenstr.8,  6090  Rüsselsheim 

7. 

Veranstaltung  von  Spielturnie¬ 
ren,  eigene  Clubzeitung,  Club¬ 
treffen  und  Tauschbörse.  Ange¬ 
strebt  wird  die  Gründung  einer 
Kette  zwischen  den  Computer¬ 
clubs. 

Software-Club-64 

c/o  Hannelore  Bauerhenne, 
Danzigerstr.  5,  6272  Niedern¬ 
hausen. 

Quartalsmäßig  erscheint  eine 
Club-Diskette  zum  Preis  von  12 
Mark,  mit  10  fertigen  Basic-  und 


Maschinenspracheprogram-  .  gibt.  Aktionen  werden  in  Listen 
men.  bekanntgegeben. 

64'er  Club  System  on  the  Rocks  C  64-User-Club 

Michael  Frieser,  Hoffmannstr.  Suen  Laudi,  Unterrüsselbach  12, 
12,  7015  Korntal  1,  Tbl.  8551  Igensdorf. 

07 11/83  72 17.  Sechsmal  jährlich  erscheinen- 

Beabsichtigt  ist,  einen:  Ring  zu  de  Zeitschrift.  Software¬ 


gründen,  der  sich  zwischen 
Clubs,  Mailboxen  und  Zeit¬ 
schriften  bewegt.  Es  besteht  ei¬ 
ne  Mailbox  unter  der  Nummer 
0711/837686  ab  19  Uhr. 

C  64  Club,  Günther  Schroth 
Lindenstr.  9,  7273  Ebhausen. 

Interessenschwerpunkte  sind 
Hardware-,  Software-  und  Erfah¬ 
rungsaustausch. 

Computer  User  Vereinigung  Bruchsal 
c/o  Tbrsten  Zimmermann,  Stein- 
ackerstr.  12,  7520  Bruchsal,  Tbl. 
07251/14920.' 

Der  Beitrag  beträgt  für  Schü¬ 
ler  24  Mark  und  für  Erwachsene 
35  Mark  im  Jahr.  Der  Club  veran¬ 
staltet  Basic-,  Pascal-,  und  As¬ 
semblerkurse.  Geplant  ist  die 
Gründung  von  AGs. 
Commodore-Computerdub 
für  Berufstätige 

Dieter  Schönberger.  Im  Jüden 
43,  Postfach  4305,  7520  Bruchsal 
4.  Tel.  07257/3447. 

Ein  Club  für  aktive  Computer¬ 
freunde,  die  sich  regelmäßig 
treffen.  Gesellschaftliche  Veran¬ 
staltungen,  auch  mit  Anhang, 
sind  geplant. 

C  64-Club  »New  Line« 

Postfach  8007,  7910  Neu-Ulm  8. 

New  Line  gibt  Hilfestellungen, 
bevorzugt  für  Anfänger.  Der 
Club  hat  folgende  Schwerpunk¬ 
te:  Softwaretausch,  Public  Do¬ 
main  Software,  Programmierauf- 
träge  annehmen  und  vergeben. 
Programmieranleitungen,  Hard¬ 
ware  und  Peripherie.  Kein  Bei¬ 
trag,  da  es  keine  Clubtreffen 


test,  -Erstellung  und  -Tausch. 
Tips  &  Tricks,  Problemhilfen, 
Programmbibliothek.  Jahres¬ 
beitrag  15  Mark.  Dafür  gibt's  1 
Diskette  voll  Programme. 
ACS-Userdub 

Wasserfallweg  8.  8964  Nessel¬ 
wang. 

Monatliche  Clubzeitung,  Auf¬ 
bau  einer  Programmbibliothek 
mit  Profiprogrammen  und  Ein¬ 
steigerberatung.  Aufnahmege¬ 
bühr  10  Mark.  Beitrag  15  Mark 
pro  Quartal. 

Club  Österreichischer 
Computer-Amateure 
Postfach  51,  A-1193  Wien. 

Regelmäßiges  Mitteilungs¬ 
blatt,  Programm-,  Erfahrungs¬ 
und  Wissensaustausch,  Softwa¬ 
resammlung,  gesellige  Abende, 
und  vieles  mehr. 

Floridsdorfer  Mikro  Computer  Club 
Angererstr.  14,  A-1210  Wien. 

Erfahrungs-  und  Programm¬ 
austausch,  in  den  Räumen  der 
VHS  Wien-Nord,  finden  ab  Ende 
September  wieder  statt.  Club¬ 
beitrag  ÖS  400,-  für  ein  Jahr. 

Computer-Club-Graz 

Annenstr.  17,  A-8010  Graz,  Tel. 
0316/913395. 

Treffpunkt  ist  jeden  Mittwoch 
im  Vereinslokal.  Es  gibt  eigene 
Clubgeräte  aller  Typen,  eine 
Clubzeitschrift  und  Kurse  für  An¬ 
fänger  und  Fortgeschrittene.  Für 
dieses  Semester  ist  eine  Schwer¬ 
punktaktion  »Computer  und  Be¬ 
hinderte«  geplant. 


STO  Computerclub  Herzogenburg 

Stefan  Ostermann,  Karl  Grund- 
mannstr.  43,  A-3130  Herzogen¬ 
burg,  NÖ. 

Austausch  von  Erfahrungen 
und  Programmen.  Clubtreffen 
jeden  zweiten  Samstag  im  Mo¬ 
nat.  Geboten  werden  Vorträge, 
Kurse,  Erstellung  von  Program¬ 
men,  und  vieles  mehr. 

Der  Computer  Club 

Knut  Reuther,  Wunstorferstr.  35, 
3057  Neustadt  1. 

Veranstaltet  am  23./24.11.  auf 
dem  Gelände  der  KGS  Neustadt 
die  3.  Neustädter  Computerta¬ 
ge.  Interessenten  erhalten  dort 
Informationsmaterial,  (og/aw) 

COMAL-Gruppe  Deutschland 

D.  Beiz,  2270  Utersum/Föhr,  Tel. 
04683/500. 

Tausch  von  Programmen  und 
Infos.  Verbreitung  der  Sprache 
Comal.  Eigene  Mailbox 
(04683/554).  Verbindung  zu  al¬ 
len  Comal-Gruppen  in  der  Welt. 

LCC-lübecker-Commodore-Club 

Moltkestr.  14,  24  Lübeck. 

Clubtreffen,  Softwarebiblio¬ 
thek,  Computersprachen,  DFÜ 
ist  geplant.  Aufnahmegebühr: 
ein  eigenes  Programm. 

Commodore-User-Club-Lübeck 

Peter  Jablonski,  Bülowstr.  29, 
2400  Lübeck  1. 

Monatliche  Clubzeitschrift. 
Beitrag  10  Mark,  für  Schüler  die 
Hälfte.  Aufnahmegebühr  15 
Mark. 

Computergemeinschaft  64 

Michael  Fuhrmann,  Eilveser 
Hauptstr.  34,  3057  Neustadt  1. 

Austausch  von  Programmen, 
POKEs  und  anderen  Tricks.  Ver¬ 
bindungen  zwischen  Computer¬ 
freunden. 
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Bücher 


Lehrspielzeug  Compu¬ 
ter:  C  64/VC  20 

Basic  schon  für  Sechsjährige? 
Das  Buch  »Lehrspielzeug  Com¬ 
puter:  C  64/VC  20«  will  den  Ver¬ 
such  wagen.  Unter  Mithilfe  der 
Eltern  sollen  kleine  Kinder  die 
ersten  Schritte  in  die  Basic-Welt 
lernen.  Es  handelt  sich  um  ein 
aus  dem  Amerikanischen  über¬ 
setztes  Buch  im  Spiralhefter. 

Das  Buch  beginnt  mit  einem 
13seitigen  Überblick  für  die  El¬ 
tern,  in  welchem  der  Sinn  der 
einzelnen  Übungen  und  even¬ 
tuelle  Schwierigkeiten,  die  beim 
Bearbeiten  auftreten  können,  er¬ 
klärt  werden.  Nach  einer  sehr 
kurzen  Einführung  wird  der  Ler¬ 
nende  in  42  Übungen  aufgefor¬ 
dert,  ein  kurzes  Programm  mit 
wenigen  Zeilen  einzutippen 
Nach  dem  Start  soll  er  in  das 
Buch  schreiben,  welche  Reak¬ 
tionen  erfolgten.  Dann  wird  er 
aufgefuiüeil,  das  Programm  et¬ 
was  abzuändem.  um  damit  die 
Bedeutung  einzelner  Befehle 
noch  besser  erkennen  zu  kön¬ 
nen.  Selbstverständlich  werden 
nur  die  wichtigsten  Befehle  be¬ 
handelt  Aufgelockert  wird  der 
Text  durch  zahlreiche  ganzseiti¬ 
ge,  farbig  unterlegte  lustige 
Zeichnungen,  bei  denen  man  al¬ 
lerdings  vielfach  den  Zusam¬ 
menhang  mit  dem  Text  vermißt. 

Insgesamt  ist  das  Buch  eigent¬ 
lich  mehr  ein  Leitfaden  für  unsi¬ 
chere  Eltern.  Wer  keine  eigenen 
Ideen  hat  seinen  Kindern  mit 
kindgerechten  Programmen  die 
ersten  Schritte  in  die  Basic-Welt 
beizubringen,  findet  hier  einen 
erprobten,  gangbaren  Weg. 

(D.  Hein) 

Info:  M.J  Winter  Lehrspielzeug Computer 
C  64/VC  20,  Markt  &  Itechnik  1984,  140  Sei¬ 
ten,  ISBN  3-89090-011-9.  24.80  Mark 

Das  Mailbox-Jahrbuch: 
»Nutz  die  Netze« 

Ein  »Nachschlagewerk  für 
Computerfreaks  und  alle,  die  es 
werden  wollen«,  nennt  der  Autor 
Wolfgang  Spindler  sein  »Mail¬ 
box-Jahrbuch«.  Interessant  ist 
das  Handbuch  vorwiegend  für 
Anfänger,  die  in  dieser  Materie 
ersi  einmal  Fuß  fassen  wollen. 
Einführende  Artikel  wie  zum 
Beispiel  »kleines  technisches 
ABC«  oder  »Kinder,  morgen 
wird 's  was  geben«  beschreiben 
leicht  verständlich  die  »Welt 
der  Computer-Kommunikation 
durch  Telefonanschluß«.  Der  le¬ 
gere.  witzige  und  farbenfrohe 
Schreibstil  des  ehemaligen 
Spiegel-Redakteurs  verrät,  daß 
dieses  Werk  in  seiner  jugendli¬ 
chen  Aufmachung  mehr  als  un¬ 
terhaltsamer  Themenumriß  ge¬ 
dacht  ist. 

Die  dennoch  recht  gelungene 
Publikation  enthält  in  Abschnit¬ 
ten  wie  »Mailboxen  selbstge¬ 
macht«  oder  »Odyssee  durch  50 
Boxen«  durchaus  auch  Auf¬ 


schlußreiches  für  Fortgeschrit¬ 
tene  und  Profis.  Die  unvollständi¬ 
ge  Auflistung  von  nur  39  Mailbo¬ 
xen  entschuldigt  der  Autor  mit 
dem  Hinweis,  daß  sein  Nach¬ 
schlagewerk  noch  lange  nicht 
abgeschlossen  ist.  Im  Herbst 
folgt  des  Jahrbuchs  zweite  Ver¬ 
sion  in  der  Hoffnung  auf,  so  W 
Spindler,  phantasievollere  Neu¬ 
einrichtungen  in  der  Mailbox- 
Szene.  (Doris  Eichmeier) 

Info;  Wolfgang  Spindler,  Das  Mailbox- 
Jahrbuch,  Eichhorn  Verlag  198S.  ISBN 
3-8218-1040-8,  110  Seiten.  10  Mark 

Commodore  64-Listings, 
Band  1:  Spiele 

Der  vorliegende  erste  Band 
aus  der  »C  64-Listings«-Reihe 
des  Markt&  Technik  Verlages 
befaßt  sich  mit  Spielen.  Auf  199 
Seiten  finden  sich  9  Spiele.  Die 
Palette  reicht  vom  Denk-  und 
Glücksspiel  über  ein  Adventure 
bis  zu  Reaktions-  und  Schieß¬ 
spielen. 

Die  umfangreichen  Program¬ 
me  sind  in  Basic  eines  davon  mit 
Simons-Basic  geschrieben.  Das 
Schießspiel  Enterprise  bildet  ei¬ 
ne  Ausnahme,  da  man  einen  As¬ 
sembler  dafür  braucht.  Außer¬ 
dem  benötigt  Enterprise  ein 
Floppy-Laufwerk. 

Durch  die  gute  Dokumenta¬ 
tion  der  Programme,  die  auch  ei¬ 
ne  Variablenliste  beinhaltet,  ist 
es  möglich,  den  Spiejabjauf  zu 
verstehen  und  zu  Vermeern.  Al¬ 
lerdings  sollte  man  dazu  schon 
etwas  Erfahrung  haben,  da  die 
Programme  ziemlich  umfang¬ 
reich  und  dementsprechend 
kompliziert  sind. 

Die  Spiele  sind  alle  aufwendi¬ 
ger  gestaltet  als  die  kurzen  Pro¬ 
gramme,  die  man  oft  in  Büchern 
dieser  Art  findet.  Deshalb  wird 
dieser  Band  sowohl  diejenigen 
ansprechen,  die  nur  abtippen 
und  spielen  wollen,  als  auch  die 
Programmierer,  die  sich  einge¬ 
hender  mit  den  Listings  beschäf¬ 
tigen  möchten. 

(Gerhard  Pehland) 

Info:  Hans  Lorenz  Schneider.  Markt&ltech- 
nik  Verlag  1984.  MT  748,  ISBN 
3-89090-068-2.  199  Seiten,  24,80  Mark 

Commodore  64-Listings, 
Band  2:  Dateiverwal¬ 
tung,  Schule,  Hobby 

Programme  aus  den  Berei¬ 
chen  Dateiverwaltung,  Schule 
und  Hobby  werden  in  diesem 
Band  vorgestellt.  Diese  sind 
ziemlich  umfangreich  und  in  Ba¬ 
sic.  Simons-Basic  oder  Assem¬ 
bler  geschrieben. 

Als  erstes  wird  das  Datenver- 
wakungsprogramm  DATAVE  be¬ 
schrieben.  Das  menügesteuerte 
Programm  enthält  alle  wichtigen 
Funktionen,  die  man  zum  Um¬ 
gang  mit  seinen  Daten  braucht. 
Durch  die  Programmierung  in 
Basic  ist  natürlich  die  Arbeitsge¬ 


schwindigkeit  begrenzt.  Es  fol¬ 
gen  drei  Programme,  die  sich  an 
den  Schüler  wenden.  Die  grafi¬ 
sche  Darstellung  von  Funktio¬ 
nen,  Übungen  zur  lateinischen 
Grammatik  und  eine  statistische 
Regressionsanalyse  werden  auf 
dem  C  64  realisiert.  Für  den  pri¬ 
vaten  Bereich  sind  die  Program¬ 
me  im  Hobbyteü  dieses  Buchs 
gedacht.  Er  enthält  eine  Verwal¬ 
tung  der  Bundesligatabelle,  ei¬ 
ne  Reisekostenabrechnung  so¬ 
wie  ein  Listing  zum  Ausdruck 
von  Disketten-Directories. 

Die  ausführliche  Dokumenta¬ 
tion  erlaubt  es  dem  fortgeschrit¬ 
tenen  Programmierer,  die  Pro¬ 
gramme  zu  durchblicken  und 
Veränderungen  vorzunehmen. 
Leider  ist  das  Druckbild  der  Li¬ 
stings  sehr  schlecht,  für  die  Ver¬ 
öffentlichung  in  einem  Buch  soll¬ 
te  man  nicht  gerade  den  billig¬ 
sten  Drucker  verwenden. 

Wer  sich  für  die  besproche¬ 
nen  Anwendungen  interessiert, 
erhält  mit  diesem  Buch  meines 
Erachtens  gute  Programme,  die 
auch  an  individuelle  Bedürfnis¬ 
se  angepaßt  werden  können. 

(Gerhard  Pehland) 
Info:  Hans  Lorenz  Schneider,  Markt&Tech 
nik  Verlag  1984.  MT766.  ISBN  3-89090-071-2. 
179  Seilen.  24,80  Mark 

Mathematische 
Routinen  VC  20, 
Ele^otechnik/Elektronik 

Wer  geglaubt  hat,  der  kleine 
VC  20  sei  ein  »Spielding«  und  nur 
als  solches  zu  gebrauchen,  wird 
von  Ernst-Friedrich  Reinking  ei¬ 
nes  anderen  belehrt. 

24  Programme,  die  auf  der 
Grundversion  des  Computers 
laufen,  werden  vorgestellt.  Um 
die  Anpassung  an  andere  Basic- 
Versionen  zu  erleichtern  und  um 
den  wenig  geübten  Benutzer 
den  Umgang  mit  dem  Gerät  zu 
lehren,  findet  man  im  ersten  Teil 
eine  knappe  Vorstellung  des  VC 
20-Basic. 

Beide  Ansprüche  werden 
aber  nicht  erfüllt,  denn  zum  ei¬ 
nen  haben  vier  Seiten  stichwort¬ 
artiger  Taxt  keine  Lehrfunktion, 
sondern  bestenfalls  dienen  sie 
als  Gedächtnisstütze.  Zum  ande¬ 
ren  aber  sind  einige  Programme 
doch  derart  gerätespezifisch 
aufgebaut  (POKE-Kommandos 
in  bestimmte  Speicherberei¬ 
che),  daß  zur  Umsetzung  auf  an¬ 
dere  Computer  mehr  als  diese 
kleine  Liste  nötig  wäre.  Schade, 
der  Effekt  der  Programme  mit 
einem  reinen  Minimalbasic  wä¬ 
re  größer  gewesen. 

Der  zweite  Teil  des  Werkes  ist 
mathematischen  Aufgaben  ge¬ 
widmet.  Da  findet  sich  zunächst 
die  obligatorische  Lösung  einer 
quadratischen  Gleichung,  wo¬ 
bei  auch  komplexe  Ergebnisse 
berechnet  werden.  Im  zweiten 
Programm  »Umwandlung  von 
Polar-/Kartesischen  Koordina¬ 


ten«  ist  leider  ein  Fehler  enthal¬ 
ten:  Die  richtigen  Polarkoordina¬ 
ten  kommen  nur  für  den  1.  Qua¬ 
dranten  heraus.  'Die  anderen 
drei  Quadranteneingaben  füh¬ 
ren  zu  falschen  Winkeln.  Ein 
Problem,  welches  sich  mittels 
der  SGN-Funktion  leicht  hätte 
beheben  lassen.  Auch  das  fol¬ 
gende  Programm  »Vektorrech¬ 
nung«  verdient  einige  Kritik.  Es 
ist  zwar  ganz  nett,  daß  man  damit 
zwei  Vektoren  addieren,  subtra¬ 
hieren  und  als  Kreuz-  oder  Ska¬ 
larprodukt  multiplizieren  kann, 
aber  dazu  braucht’s  kaum  einen 
Computer.  Zur  Vektorrechnung 
sollten  eigentlich  die  folgenden, 
weniger  trivialen  Problemlösun¬ 
gen  auch  gehören,  die  man  hier 
allerdings  vermißt:  Betrag,  ein¬ 
geschlossener  Winkel,  dyadi- 
sches  Produkt  und  Spatprodukt 
von  drei  Vektoren.  Auch  das  ist 
in  der  Grundversion  des  VC  20 
realisierbar! 

Je  weiter  man  in  der  Lektüre 
dieses  Buches  kommt,  desto  er¬ 
freulicher  wird  es  allerdings. 
Die  Programme  zur  Zahlenkon¬ 
vertierung.  zur  komplexen  Arith¬ 
metik  und  Trigonometrie  sind 
sauber  geschrieben  und  über¬ 
schaubar  dokumentiert.  Zwei 
weitere  Routinen  zum  Ermitteln 
der  Nullstellen  einer  Funktion 
und  zur  Berechnung  bestimmter 
Integrale  nach  der  Trapezregel 
verdienen  lediglich  den  Tadel, 
daß  die  Funktionseingabe  platz¬ 
raubend  und  schwerfällig  ist. 
Die  Möglichkeit,  über  den  Tasta¬ 
turpuffer  zu  arbeiten,  wäre  we¬ 
sentlich  eleganter  gewesen.  Der 
mathematische  Teil  wird  abge¬ 
rundet  durch  ein  Programm  zur 
Lösung  linearer  Gleichungssy¬ 
steme  mittels  des  Gaußschen 
Algorithmus  und  ein  letztes  zur 
Polynomapproximation  nach 
der  Methode  der  kleinsten  Feh¬ 
lerquadrate. 

Im  dritten  Teil  des  Buches  fin¬ 


det  der  Elektroniker  vieles,  was 
sein  Herz  begehrt.  Man  merkt, 
daß  der  Autor  hier  in  seinem 
Fachgebiet  programmiert.  14 
Programme  aus  dem  Bereich 
der  Elektrotechnik  und  Elektro¬ 
nik  werden  vorgestellt,  von  de¬ 
nen  hier  nur  erwähnt  seien:  Be 
rechnung  einlagiger  Zylmder- 
spulen  (es  wäre  benutzerfreund- 
lich  gewesen,  die  Änderung  der 
relativen  Permeabilität  einfa¬ 
cher  zu  gestalten),  Schwing¬ 
kreis-  und  Reaktanzberechnun¬ 
gen,  mehrere  Routinen  zur  Be¬ 
rechnung  von  passiven  und  akti¬ 
ven  Tief-,  Hoch-  und  Bandpäs¬ 
sen,  Berechnungen  zur  HF-Lei- 
tungstechnik  und  als  Höhepunkt 
eine  Netzwerkanalyse. 

Fazit:  Das  Buch  ist  eine  Fund¬ 
grube  für  Studenten  oder  Inge¬ 
nieure  der  Elektrotechnik  und 

Elektronik.  ... 

(Heimo  Ponnath) 


Info:  Ernst-Friedrich  Reinking,  Mathemati¬ 
sche  Routinen  VC  20.  Elektrotechnik/Elek¬ 
tronik.  Vieweg  &  Sohn  1983.  ISBN  3-528- 
04234-6.  29.90  Mark 
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Marktübersicht 


Marktübersicht  Disketten 

In  der  Marktübersicht  Disketten  (Ausgabe  10,  Seiten  40/41)  sorgten  einige  Fehler  für  große  Verwirrung.  Nicht,  daß  es  nur 
ein  einziger  Druckfehler  wäre,  nein,  ein  Hersteller  verschwand  sogar  und  entsetzlich  viele  Einzelheiten  waren  verdreht.  Da¬ 
durch  hat  der  Informationswert  der  Marktübersicht  dann  sehr  gelitten.  Für  uns  heißt  das,  daß  wir  die  gesamte  Marktüber¬ 
sicht,  nicht  zuletzt  wegen  der  Überschaubarkeit,  noch  einmal  vollständig  und  korrigiert  (und  fehlerfrei)  abdrucken. 
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1 

a,b,c 

b  ,74,— 

1248-XX 

h,s 

DS/DD 

1000 

1 

a,b,c 

b  85,- 

1249-XX 

s 

DS/HD 

1600 

1 

a,b,c 

b  129,- 

Döbbelin  &  Boeder 

Disky  1 

s 

SS/SD 

125 

5 

a.  Anfr. 

a,b,c 

k.A. 

Disky  ID 

s 

SS/DD 

250 

5 

a.  Änfr. 

a,b,c 

k.A. 

Disky  2D 

s 

DS/DD 

500 

5 

a.  Anfr. 

a,b,c 

k.A. 

Disky  1D96 

s 

SS/DD 

500 

5 

a.  Anfr. 

a,b,c 

k.  A. 

Disky  2D96 

s 

DS/DD 

1000 

5 

a.  Anfr. 

a,b,c 

k.A. 

Disky 

s 

DS/DD 

500 

5 

a,b,c 

k.A. 

two  eye 

a.  Anfr. 

Disk  top 

s 

DS/DD 

1000 

5 

a.  Anfr. 

a,b,c 

k.A. 

Disky  HD2 

s 

DS/HD 

1600 

5 

a.  Anfr. 

a,b,c 

k.A 

Dysan 

104/ID 

s 

SS/DD 

250 

1 

a,b 

k.A. 

104/2D 

s 

DS/DD 

500 

1 

a.b 

k.A. 

105/ID 

h 

SS/DD 

164 

1 

b 

k.A. 

105/2D 

h 

DS/DD 

328 

1 

b 

k.A. 

107/ID 

h 

SS/DD 

205 

1 

b 

k.A. 

107/2D 

h 

DS/DD 

410 

1 

a.b 

k.A. 

204/ID 

s 

SS/DD 

500 

1 

a.b 

k.A. 

204/2D 

s 

DS/DD 

1000 

1 

a,b 

k.A. 

205/2D 

h 

DS/DD 

655 

1 

a.b 

k.A. 

207/2D 

h 

DS/DD 

819 

1 

a,b 

k.A. 

Fuji 

MD1D 

s 

SS/DD 

250 

6 

a,b 

a  5,95 

— ,85 

MD2D 

s 

DS/DD 

500 

6 

a,b 

a  8,95 

— ,90 

MD2DD 

s 

DS/DD 

1000 

1 

b 

a  10,95 

MD2HD 

s 

DS/HD 

1600 

1 

b 

a  12,95 

Magna 

SS/DD 

s 

SS/DD 

250 

1 

a 

k.A. 

48  tpi 

DS/DD 

s 

DS/DD 

500 

1 

a 

k.A. 

48  tpi 

SS/DD 

s 

SS/DD 

481 

1 

a 

k.A. 

96  tpi 
DS/DD 

86  tpi 

s 

DS/DD 

962 

1 

a 

k.A. 

Maxell 

MDI 

s 

SS/SD 

125 

1 

c 

a  7,50 

MD1-D 

s 

SS/DD 

250 

1 

c 

a  7,85 

MD2-D 

s 

DS/DD 

500 

1 

c 

a  11,70 

MD1-DD 

s 

SS/DD 

500 

1 

c 

a  11,60 

MD2-DD 

s 

DS/DD 

500 

1 

c 

a  15,35 

MH1-10 

h 

SS/SD 

250 

1 

c 

a  7,50 

MH1-16 

h 

SS/SD 

250 

1 

c 

a  7,50 

MH2-10D 

h 

DS/DD 

500 

1 

c 

a  11,70 

MH2-16D 

h 

DS/DD 

500 

1 

c 

a  11,70 

MD2-256HD 

s 

DS/HD 

1000 

1 

c 

a  18,— 

MD2-HD 

s 

DS/HD 

1600 

1 

c 

a  20,60 

Memorex 

3203-5151 

s 

SS/SD 

125 

1 

c 

b  47,— 

3203-5251 

s 

SS/DD 

250 

1 

c 

b  48,— 

3203-5A51 

h 

SS/DD 

250 

1 

c 

b  48,— 

3203-5B5 1 

h 

SS/DD 

250 

1 

c 

b  48,- 

3203-5210 

s 

SS/DD 

250 

1 

c 

b  49,- 

3203-5A11 

h 

SS/DD 

250 

1 

c 

b  49, -r- 

3203-5B 1 1 

h 

SS/DD 

250 

1 

c 

b  49,— 

3203-5261 

s 

DS/DD 

500 

1 

c 

b  63- 

3203-5A6 1 

h 

DS/DD 

500 

1 

c 

b  63  — 

3203-5B62 

h 

DS/DD 

500 

1 

c 

b  63,— 

3203-5220 

s 

DS/DD 

500 

1 

c 

b  65- 

3203-5A21 

h 

DS/DD 

500 

1 

c 

b  65,- 

i320^  21 

h 

DS/DD 

500 

1 

c 

b  65  — 

3203-5410 

s 

SS/DD 

500 

1 

c 

b  75- 

3203-5C1 1 

h 

SS/DD 

500 

1 

c 

b  75,— 

3203-5D11 

h 

SS/DD 

500 

1 

c 

b  75,— 

3203-5420 

s 

SS/DD 

1000 

1 

c 

b  79,- 

3203-5C2 1 

h 

DS/DD 

1000 

1 

c 

b  79,- 

3203-5D21 

h 

DS/HD 

1000 

1 

c 

b  79,— 

3203-5660 

s 

DS/HD 

1600 

1 

c 

b  149,- 

Marcom 

Elephant 

s 

SS/DD 

250 

1 

c 

b  62,— 

EMS  2 

Elephant 

h 

SS/DD 

250 

1 

c 

b  62,— 

EMS  3 

Elephant 

h 

SS/DD 

250 

1 

c 

b  62,- 

EMS  4 

Elephant 

s 

DS/DD 

500 

1 

c 

b  80- 

EMS  5 

Elephant 

h 

DS/DD 

500 

1 

c 

b  80,- 

EMS  6 

Elephant 

h 

DS/DD 

500 

1 

c 

b  80,- 

EMS  7 

Elephant 

s 

SS/DD 

500 

1 

c 

b  85,- 

EMS  8 

Elephant 

h 

SS/DD 

500 

1 

c 

b  85,— 

EMS  9 

Elephant 

s 

DS/DD 

1000 

1 

c 

b  97,- 

EMS  10 

Elephant 

h 

DS/DD 

1000 

1 

c 

b  97,- 

EMS  11 

Nashua 

MDI 

h,s 

SS/SD 

125 

1 

a 

k.A. 

MD1D 

h,s 

SS/DD 

250 

1 

a 

k.A. 

MD2D 

h,s 

DS/DD 

500 

1 

a.b 

k.A. 

MD1F 

h,s 

SS/DD 

500 

1 

a,b 

k.A. 

MD2F 

h,s 

DS/DD 

1000 

1 

a,b 

k.A. 

Panasonic 

EBF  MD1D 

s 

SS/DD 

164 

1 

b 

a  4,80 

EBF  MD2D 

s 

DS/DD 

328 

1 

b 

a  7,15 

EBF  MD2DE 

s 

DS/DD 

655 

1 

b 

a  10,20 

Pelikan 

MDI  D 

s 

SS/DD 

250 

1 

b 

k.A. 

MD2D 

s 

DS/DD 

500 

1 

b 

k.A. 

MDI  DD 

s 

SS/DD 

500 

1 

b 

k.A. 

MD2DD 

s 

DS/DD 

1000 

1 

b 

k.A. 

MD2HD 

s 

DS/HD 

1600 

1 

b 

k.A. 
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Perfectdata  International 


1S2D 

s 

SS/DD 

2S2D 

s 

DS/DD 

1S2D 

s 

SS/DD 

2S2D 

s 

DS/DD 

500 

2 

a 

a  2,90 

500 

2 

a 

a  3,50 

1000 

2 

a 

a  4,— 

1000 

2 

a 

a  4,50 

Rhone  Poulenc 


MN1DD 

MN2DD 

MN2DD-2 

MD2HD 

h,s 

h,s 

h,s 

s 

SS/SD 

DS/DD 

DS/DD 

DS/HD 

250 

500 

1000 

1600 

1 

1 

1 

1 

a,b,c 

a.b.c 

a.b.c 

a.b.c 

k.A. 

k.A. 

k.A. 

k.A. 

Sentinel 

5H-11 

h,s 

SS/SD 

125 

6 

a,b,c 

k.A. 

5S-11 

5H-12 

h,s 

SS/DD 

250 

6 

a.b.c 

k.A. 

5S-12 

5H-22 

h,s 

DS/DD 

500 

6 

a.b.c 

k.A. 

5S-22 

5H-14 

h,s 

SS/DD 

500 

6 

a,b,c 

k.A. 

5S-14 

5H-24 

h,s 

DS/DD 

1000 

6 

a,b,c 

k.A. 

5S-24 

5S-28 

s 

DS/HD 

1600 

6 

b 

k.A. 

Verbatim 

Verex 

s 

SS/SD 

125 

1 

c 

b  35  — 

MD  150-01 
Verex 

s 

SS/DD 

250 

1 

c 

b  39,— 

MD  200-01 
Verex 

s 

DS/DD 

500 

1 

c 

b  49,— 

MD  250-01 
Datalife 

s 

SS/DD 

250 

1 

a.b 

b  49,- 

MD  525-01 
Datalife 

s 

DS/DD 

500 

1 

a,b 

b  69,50 

MD  550-01 
Datalife 

s 

DS/DD 

500 

1 

a,b 

b  69,- 

MD  577-01 

Vobis 

Multilife 

1D1S 

Multilife 

2D1S 

Multilife 

1D2S 

Multilife 

1D2S 

Wende¬ 

disketten 

Multilife 

2D2S 

s 

s 

s 

s 

s 

SS/SD 

SS/DD 

DS/SD 

DS/SD 

DS/DD 

125 

250 

250 

250 

500 

1 

1 

1 

1 

6 

b 

b 

b 

b 

a 

b  29,- 

b  35,- 

b  39,- 

b  49,- 

b  69,- 

Wabash  DataTech 

Mil 

s 

SS/SD 

125 

1 

b 

k.A. 

M13 

h.s 

SS/DD 

250 

1 

b 

k.A. 

M14  • 

h,s 

DS/DD 

500 

1 

b 

k.A. 

M16 

h,s 

DS/DD 

1000 

1 

b 

k.A. 

MIß 

s 

DS/HD 

1600 

1 

b 

k.A. 

Xidex 

5012-1000 

5112-1000 

5212-1000 

5022-1000 

5122-1000 

5222-1000 

5012-2000 

5112-2000 

5212-2000 

5022-2000 

S122-2000 

5222-2000 


SS/DD 

SS/DD 

SS/DD 

DS/DD 

DS/DD 

DS/DD 

SS/DD 

SS/DD 

SS/DD 

DS/DD 

DS/DD 

DS/DD 


114  asKH? 


250 

250 

250 

500 

500 

500 

500 

500 

S00 

1000 

1000 


k.A. 

k.A. 

k.A. 

k.A. 

k.A. 

k.A. 

k.A. 

k.A. 

k.A. 

k.A. 

k.A. 

k.A. 
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Wollen  Sie  einen  gebrauchten  Computer  verkaufen  oder  erwerben?  Suchen  Sie  Zubehör?  Haben  Sie 
Software  anzubieten  oder  suchen  Sie  Programme  oder  Verbindungen?  Der  COMPUTER-MARKT  von 
>6 4 'er«  bietet  allen  Computerfans  die  Gelegenheit,  für  nur  5—  DM  eine  private  Kleinanzeige  mit  bis 
zu  5  Zeilen  Text  in  der  Rubrik  Ihrer  Wahl  aufzugeben.  Und  so  kommt  Ihre  private  Kleinanzeige  in  den 
COMPUTER-MARKT  der  Dezember-Ausgabe  (erscheint  am  15.  November  85):  Schicken  Sie  Ihren 
Anzeigentext  bis  zum  22.  Oktober  85  (Eingangsdatum  beim  Verlag)  an  •64'er«.  Später  eingehende 
Aufträge  werden  in  der  Januar-Ausgabe  (erscheint  am  13.  Dezember  85)  veröffentlicht. 


Am  besten  verwenden  Sie  dazu  die  vorbereitete  Auftragskarte  am  Anfang  des  Heftes. 

Bitte  beachten  Sie:  Ihr  Anzeigentext  darf  maximal  5  Zeilen  mit  Je  32  Buchstaben  betragen. 

Überweisen  Sie  den  Anzeigenpreis  von  DM  5,—  auf  das  Postscheckkonto  Nr.  14199-803  beim  Post¬ 
scheckamt  mit  dem  Vermerk  »Markt  &  Technik.  64er«  oder  schicken  Sie  uns  DM  5,—  als  Scheck  oder 
in  Bargeld,  Der  Verlag  behält  sich  die  Veröffentlichung  längerer  Texte  vor.  Kleinanzeigen,  die  entspre¬ 
chend  gekennzeichnet  sind,  oder  deren  Text  auf  eine  gewerbliche  Tätigkeit  schließen  läßt,  werden 
in  der  Rubrik  »Gewerbliche  Kleinanzeigen«  zum  Preis  von  DM  11,—  je  Zeile  Text  veröffentlicht. 
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Wie  schicke  ich... 


C  64/C  128 


Wie  schicke  ich  meine 
Programme  ein? 

Die  64'er-Redaktion  freut 
sich  über  jeden  Leserbei¬ 
trag.  Es  zeigt  sich  aber,  daß 
viele  Einsender  nicht  genau 
wissen,  in  welcher  Form  ihre 
Manuskripte  einzusenden 
sind.  Die  folgenden  Punkte 
sollen  eine  kleine  Hilfestel¬ 
lunggeben.  Eine  Programm¬ 
einsendung  sollte  aus  fünf 
Teilen  bestehen: 

1.  Anschreiben 

2.  Bedienungsanleitung 

3.  Programmbeschreibung 

4.  Programm  als  Listing  und 
auf  Diskette/  Kassette 

5.  UrheberrechKCopyright- 
Erklärung)  siehe  unten 

1.  Anschreiben 

a)  Anschrift 

Hier  sollten  der  Name,  die 
vollständige  Adresse  mit  Te¬ 
lefonnummer  und  das  Ein¬ 
sendedatum  stehen. 

b)  Computer 

Darunter  ist  in  der  »Betreff¬ 
zeile«  der  verwendete  Com¬ 
putertyp  und,  wenn  notwen¬ 
dig,  die  verwendete  Erwei¬ 
terung  beziehungsweise  die 
erforderliche  Peripherie  an¬ 
zugeben. 

c)  Programme,  Bauanleitun¬ 
gen 

Dem  folgt  der  Programm¬ 
name  und  die  Art  des  Pro¬ 
gramms  beziehungsweise 
der  Name  der  Bauanleitung 
(zum  Beispiel  Dateiverwal¬ 


tung,  Basic-Erweiterung, 
80-Zeichen-Karte  oder  ähnli¬ 
ches). 

Auf  den  Rest  der  Seite  kön¬ 
nen  Sie  in  wenigen  Sätzen  ei¬ 
ne  kurze  Beschreibung  des 
Programms  liefern  (was 
macht  das  Programm,  war¬ 
um  ist  es  interessant  etc.). 
Allgemeines 

Die  folgenden  Seiten  soll¬ 
ten  durchnumeriert  und  mit 
Ihrem  Namen  versehen  sein. 
Verwenden  Sie,  wenn  vor¬ 
handen,  eine  Schreibma¬ 
schine  oder  einen  Drucker. 
Lassen  Sie  möglichst  nach  je¬ 
der  Zeile  eine  Leerzeile 
Platz.  Rechts  und  links  sollte 
mindestens  ein  5  cm  breiter 
Rand  für  Korrekturen  und 
Bemerkungen  frei  bleiben. 

2.  Bedienungsanleitung 

Schreiben  Sie  hier,  welche 
Tasten  und  Befehle  einzuge¬ 
ben  sind,  um  das  Programm 
zu  starten.  Ferner  sollte  die 
Bedienungsanleitung  eine 
ausführliche  Beschreibung 
aller  Funktionen  und  Befeh¬ 
le  möglichst  mit  Beispielen 
enthalten. 

Legen  Sie,  wenn  es  sich 
anbietet,  Hardcopies  oder 
Beispielausdrucke  bei  (ein 
Bild  sagt  mehr  als  tausend 
Worte).  Grafiken  und  Bilder 
sollten  mit  einer  Überschrift 
versehen  sein.  Im  Text  ist  auf 
Bilder  und  Grafiken  hinzu¬ 
weisen  (zum  Beispiel:  siehe 
Bild  1,  Bild  2  etc.).  Bei  Bauan¬ 
leitungen  ist  ähnlich  vorzu¬ 


gehen.  Hier  ist  ausführlich  zu 
beschreiben,  wie  die  Gerä¬ 
teeinheit  zusammengebaut 
und  in  Betrieb  genommen 
wird. 

3.  Programm-, 
Hardwarebeschreibung 

Ihrer  Einsendung  sollte  un¬ 
bedingt  folgendes  beilie¬ 
gen: 

—  ausführliche  Beschrei¬ 
bung  der  Programmfunktio¬ 
nen 

—  Flußdiagramm 

—  verwendete  Variable  und 
deren  Bedeutung 

—  Hinweise  auf  besonders 
wichtige  und  interessante 
Programmzeilen  oder  Pro¬ 
grammteile 

—  Anpassung  an  andere 
Computer,  oder  wenn  sinn¬ 
voll,  an  andere  Peripherie 
(Drucker,  Diskettcn-Lauf 
werk,  Datasette  etc.) 

—  Bei  Bauanleitungen  sollte 
jeder  Einsender  beschrei¬ 
ben,  warum  was  wie  funk¬ 
tioniert  (Blockschaltbild) 

—  Schaltplan 

—  Layout  (2:1  oder  1:1) 

—  Bestückungsplan  (2:1  oder 
1:1) 

—  Stückliste  mit  Bezugs¬ 
quellen  und  Preisen 

4.  11  jgramm,  Hardware 

Schicken  Sie  Ihr  Pro¬ 
gramm  auf  Diskette  oder 
Kassette  ein.  Ein  Demopro¬ 
gramm  erleichtert  die  Beur¬ 
teilung  ganz  erheblich.  Bei 
Basic-Programmen  sollte 
das  Listing  und  entspre¬ 


chend  bei  Assembler-Pro¬ 
grammen  ein  dokumentier¬ 
ter  Quellcode  nicht  fehlen. 
Den  Bauanleitungen  sollte 
eine  funktionsfähige,  sauber 
aufgebaute  Einheit  beige¬ 
fügt  werden.  Das  beiliegen¬ 
de  Layout  sollte  sich  mit  dem 
der  eingeschickten  Bau¬ 
gruppe  decken. 

Vergessen  Sie  auch  hier 
bitte  nicht  Ihren  Namen  und 
Ihre  Anschrift  mit  Telefon¬ 
nummer,  sowohl  auf  dem  Li¬ 
sting  und  Datenträger  als 
auch  auf  der  Hardware. 
Ergänzungen 

Sollten  sich  nach  Erhalt  ei¬ 
nes  positiven  Antwortschrei¬ 
bens  noch  irgendwelche  Än¬ 
derungen  oder  Ergänzun¬ 
gen  ergeben  haben,  so  tei¬ 
len  Sie  uns  das  bitte  mög¬ 
lichst  schnell  mit.  Vergessen 
Sie  dann  nicht,  im  Anschrei¬ 
ben  darauf  hinzuweisen  und 
geben  Sie  den  Namen  des 
bearbeitenden  Redakteurs 
an  (aus  unserem  Antwort¬ 
schreiben  ersichtlich).  Bei 
umfangreichen  Programm¬ 
änderungen  benötigen  wir 
ebenfalls  einen  neuen  Da¬ 
tenträger  mit  verbessertem 
Programm. 

Ist  das  Programm  oder  die 
Bauanleitung  nicht  zur  Ver¬ 
öffentlichung  vorgesehen, 
werden  die  Unterlagen  kom¬ 
plett  an  Sie  zurückgeschickt. 
Seien  Sie  dann  jedoch  nicht 
enttäuscht.  Vielleicht  klappt 
es  beim  nächsten  Mal. 


Der  untenstehende  Abschnitt  (ausschneiden/kopieren/abschneiden)  ist  jedem  eingesandten  Listing  oder  Bauanleitung  aus¬ 
gefüllt  und  unterschrieben  beizufügen.  Nichtzutreffendes  ist  zu  streichen. 

-x§— 

Name: .  Anschrift:  .  Datum:  . 


Computer-Typ:  .  Benötigte  Erweiterung/Peripherie: 

Datenträger:  Kassette/Diskette  Programmart:  . 


Das  Programm . 

das/die  ich  der  Redaktion  der  Zeitschrift  64 'er  übersandt  ha¬ 
be,  habe  ich  selbst  erarbeitet  und  nicht,  auch  nicht  teilwei¬ 
se,  anderen  Veröffentlichungen  entnommen.  Das  Pro¬ 
gramm/die  Bauanleitung  ist  daher  frei  von  Rechten  anderer 
Personen  und  liegt  zur  Zeit  keinem  anderen  Verlag  zur  Veröf¬ 
fentlichung  vor.  Ich  bin  damit  einverstanden,  daß  die  Markt 
&  Technik  Verlag  Aktiengesellschaft  das  Programm/die  Bau¬ 
anleitung  in  ihren  Zeitschriften  oder  ihren  herausgegebenen 
Büchern  abdruckt  und  das  Programm/die  Bauanleitung  ver¬ 
vielfältigt,  wie  beispielsweise  durch  Herstellung  von  Disket¬ 
ten,  auf  denen  das  Programm  gespeichert  ist,  oder,  daß  sie 
Geräte  und  Bauelemente  nach  der  Bauanleitung  hersteilen 
läßt  und  vertreibt  beziehungsweise  durch  Dritte  vertreiben 
läßt. 

Ich  erhalte,  wenn  die  Markt  &  Technik  Verlag  Aktiengesell¬ 
schaft  das  Programm/die  Bauanleitung  druckt  oder  sonst 
verwertet,  ein  Pauschalhonorar. 


Die  Bauanleitung . 

Ich  habe  das  18.  Lebensjahr  bereits  vollendet 
. den  . 

(Unterschrift) 

Wir  geben  diese  Erklärung  für  unser  minderjähriges  Kind 
als  dessen  gesetzliche  Vertreter  ab. 

. den  . 
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Memory  Map  mit 
Wnndervorsdilägen 
(12) 

Heute  kommen  wir  in  eine  Gegend, 
die  von  Speicherzellen  beherrscht  wird, 
die  mit  dem  Bildschirm-Editor  zu  tun 
haben.  Neben  einer  modifizierten 
INPUT-Routine  mit  dem  GET-Befehl, 
wird  gezeigt,  wie  man  476  Funktions¬ 
tasten  belegt. 


Viele  von  ihnen  sind  zur 
Abfrage  und  Beeinflus¬ 
sung  der  Vorgänge  auf  dem 
Bildschirm  einsetzbar. 

Adresse  199  ($C7) 

Flagge  für  reverse  Darstellung  der 
Zeichen 

Normalerweise  steht  in  dieser 
Speicherzelle  eine  0.  was  mit 
PRINT  PEEK  (199)  leicht  nachge¬ 
prüft  werden  kann. 

Sobald  in  der  Zelle  199  eine 
andere  Zahl  als  0  steht,  werden 
alle  Zeichen  in  der  reversen 
Darstellung  gedruckt.  Das  Be¬ 
triebssystem  des  Computers  er¬ 
höht  nämlich  in  diesem  Fall  den 
jeweiligen  Bildschirmcode  der 
Zeichen  um  128.  Ein  Blick  in  eine 
Tabelle  der  Bildschirmcodes 
bestätigt,  daß  die  Codes  aller 
reversen  Zeichen  um  genau  128 
höher  sind,  als  die,  der  norma¬ 
len  Zeichen. 

Den  reversen  Modus  können 
wir  bekanntlich  direkt  mit  der 
Kombination  der  CTRL-  und  der 
RVS-ON-Taste  oder  aber  mit 
PRINT  CHR$(18)  hersteilen. 
Wenn  Sie  aber  versuchen  soll¬ 
ten.  das  direkt  einzugeben,  um 
dann  wieder  mit  PRINT  PEEK 
(199)  nachzuschauen,  was  jetzt  m 
der  Speicherzelle  199  steht, 
dann  werden  Sie  Schiffbruch  er¬ 
leiden.  Das  Betriebssystem  setzt 
den  Inhalt  der  Zelle  199  nach  ei¬ 
nem  »Wagenrücklauf«,  hervor¬ 
gerufen  zum  Beispiel  durch  die 
RETURN-Taste  oder  nach  einem 
PRINT-Befehl,  der  nicht  mit  ei¬ 
nem  Komma  oder  Semikolon  ab¬ 
geschlossen  ist,  sogleich  auf  0 
zurück.  Natürlich  erfolgt  das 
auch  durch  Drücken  der  CTRL- 
und  RVS-OFF-Taste. 

Wir  vermeiden  die  Rückset¬ 
zung  durch  einen  Einzeiler: 
PRINT  CHR$(18)  ’AAA"  PEEK 
(199) 

Wir  erhalten  drei  reverse  As 
und  als  Inhalt  der  Zelle  199  auch 


die  Zahl  18.  Dasselbe  Ergebnis 
erhalten  wir  durch  POKEn  einer 
Zahl  größer  als  0  in  die  Zelle  199: 
POKE  199,4:  PRINT"XX"  PEEK 
(199) 

Das  Ergebnis  beweist,  daß 
diese  Adresse  sehr  nützlich  sein 
kann,  zumal  ihre  Abfrage  bezie¬ 
hungsweise  Beeinflussung  auch 
innerhalb  eines  Programms  er¬ 
folgen  kann. 

Adresse  200  ($C8) 

Zeiger  auf  das  Ende  der  eingegebenen 
logischen  Zeile 

Eine  echte  Zeüe  faßt  beim  C  64 
maximal  40  Zeichen,  beim  VC  20 
nur  22. 

Eine  Zeüe  mit  Anweisungen 
darf  beim  C  64  insgesamt  80  Zei¬ 
chen,  beim  VC  20  sogar  88  Zei¬ 
chen  enthalten.  Diese  »verlän¬ 
gerte«  Programmzeile  nennt 
man  »logische  Zeile«, 

Der  Zeiger  in  Speicherzelle 
200  gibt  dem  Betriebssystem  an, 
auf  welcher  Position  das  letzte 
Zeichen  einer  eingegebenen  lo- 
'gischen  Zeile  sitzt.  Löschen  Sie 
den  Büdschirm  und  geben  Sie 
direkt  irgendwo  auf  dem  Bild¬ 
schirm  den  Befehl  ein; 

PRINT  PEEK(200) 


Sie  erhalten  die  Zahl  der  Spal¬ 
te  des  letzten  Zeichens  dieses 
Direkt-Befehls. 


Adresse  201  bis  202 
($C9  bis  $CA) 

Zeiger  auf  Zeilen-  und  Spaltenposition 
des  letzten  Zeichens  einer  Zeile 

Diese  beiden  Speicherzellen 
werden  bei  GET  und  INPUT  ver¬ 
wendet,  um  die  Zeile  und  Spalte 
des  letzten  Zeichens  einer  ein¬ 
gegebenen  Zeüe  festzustellen. 
Die  Spalten  (in  Zelle  201  angege¬ 
ben)  zählen  von  1  bis  40  (1  bis  22 
beim  VC  20).  Die  Zeilen  (in  Zelle 
202  enthalten)  zählen  dagegen 
in  Paaren  von  0  bis  12,  identisch 
mit  der  bei  Zelle  200  erläuterten 
»logischen«  Zweierzeüe.  Da  dies 
nicht  ganz  einsichtig  ist,  gebe 
ich  einen  Bildschürmausschnitt 
wieder  (Büd  1),  der  den  Sachver¬ 
halt  verdeutlichen  soll. 

Der  erste  Direktbefehl  steht  in 
der  zweiten  Zeüe,  das  letzte  Zei¬ 
chen  in  der  Spalte  30.  Der  zweite 
Befehl  steht  in  der  ersten  Sech¬ 
serzeile.  Das  heißt  also,  daß  die 
Zeilenangabe  dieselbe  ist,  egal 
um  welchen  Teil  der  logischen 
Zeüe  es  sich  handelt.  Das  kön¬ 
nen  Sie  leicht  nachprüfen,  in¬ 
dem  Sie  den  ersten  Direktbefehl 
eine  Zeile  höher  schreiben.  Das 
Resultat  ist  dasselbe. 

.  -Die  J^grscheidung,  um  wel¬ 
che'  der  meiden  Zeüenteüe  es 
sich  handelt,  wird  in  den  Spei¬ 
cherzellen  217  bis  242  getroffen. 

Beim  VC  20  sieht  der  Büd- 
schirmausdruck  etwas  anders 
aus  (Büd  2),  auch  die  Befehlsein¬ 
gabe  habe  ich  der  Zeüenlänge 
wegen  verändert.  Interessant  ist 
beim  VC  20  allerdings,  daß  dort 
trotz  der  Länge  der  logischen 
Zeile  auch  nur  Zeüenpaare  ver¬ 
wendet  werden,  deren  Länge 
natürlich  auf  22  Spalten  redu¬ 
ziert  ist, 

Adresse  203  ($CB) 

Tastencode  der  gerade  gedrückten  Taste 

In  Ausgabe  6/85  auf  Seite  123 
habe  ich  beschrieben,  wie  die 
Tasten  des  Computers  abge¬ 


fragt  werden.  Die  dabei  für  jede 
der  54  Tasten  (mit  Ausnahme  der 
RESTORE-  und  der  SHIFT- 
LOCK-Tasten)  entstehende 
Dualzahl  wird  in  eine  Dezimal¬ 
zahl  (0  bis  63)  umgewandelt  und 
in  der  Speicherzelle  203  gespei¬ 
chert,  einige  auch  in  der  Zelle 
653.  Diese  Zahl  steht  auch  in 
Speicherzelle  197,  um  sie  mit  der 
vorher  gedrückten  Taste  ver¬ 
gleichen  zu  können. 

Die  Codezahlen  jeder  Taste 
lassen  sich  mit  folgendem  Pro¬ 
gramm  abfragen: 

10  PRINT  PEEK  (203) 

20  GOTO  10 

Nach  RUN  sehen  wir  ein  lau¬ 
fendes  Zahlenband,  zuerst  mit 
der  Zahl  64.  Das  ist  die  Codezahl 
für  »keine  Taste  gedrückt«,  Die 
X-Taste  ergibt  23,  (26  beim  VC 
20),  die  W-Taste  ergibt  9.  Auch 
die  Funktionstasten  haben  ihren 
Tastencode.  Fl  ergibt  4  (39  beim 
VC  20)  und  so  weiter. 

Nur  die  Steuertasten  CTRL, 
SHIFT,  und  C=  (Commodore- 
Taste)  zeigen  keine  Reaktion. 
Deren  Tastencode  steht  nämlich 
in  Speicherzelle  653.  Den  Grund 
für  diesen  Separatismus  erfah¬ 
ren  Sie  bei  der  Besprechung 
dieser  Zelle.  Hier  ist  nur  interes¬ 
sant,  daß  nicht  nur  jede  einzelne 
dieser  drei  Tasten  einen  eige¬ 
nen  Code  hat,  sondern  auch  alle 
machbaren  Kombinationen  von 
gleichzeitig  gedrückten  Steuer¬ 
tasten.  Um  das  zu  sehen,  ändern 
Sie  bitte  die  Zeile  10  so  ab: 

10  PRINT  PEEK  (203),  PEEK(653) 

Tabelle  1  gibt  Ihnen  die  volle 
Übersicht.  Wenn  Sie  sich  die 
Mühe  machen,  die  Zahlenrei¬ 
hen  der  Zelle  203  auf  Vollstän¬ 
digkeit  zu  prüfen,  dann  werden 
Sie  feststellen,  daß  vier  Zahlen 
fehlen.  Es  sind  die  Werte,  die  ei¬ 
gentlich  den  vier  Steuertasten 
CTRL,  C  =  .  rechte  und  linke 
SHIFT-Taste  zugewiesen  sind. 
Aber  wie  gesagt,  sie  werden 
gleich  nach  653  umgeleitet,  wo¬ 
bei  allerdings  kein  Unterschied 
mehr  zwischen  der  linken  und 
rechten  SHIFT-Taste  gemacht 
wird. 

Einige  Anwendungsbeispiele 
der  Tastencodes  sowie  der  Kom¬ 
binationen  der  drei  Steuertasten 


234567890 1 234567890 1 23456  7890 1 234567890 
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2  PRINT  PEEK (201)  PEEK (202) 
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6  PRINT  PEEK (201)  PEEK (202) 
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Bild  1.  Aufbau  einer  logischen 
Zeile  beim  C  64 
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Bild  2. 
Aufbau  einer 
logischen  Zeile 
beim  VC  20 
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finden  Sie  im  Texteinschub  »Ab¬ 
frage  der  Tastencodes«.  Wie 
schon  erwähnt,  haben  die 
RESTORE-Taste  und  die  SHIFT- 
LOCK-Taste  keinen  eigenen 
Code. 

Die  RESTORE-Taste  ist  über¬ 
haupt  nicht  an  die  Tastatur- 
Matrix  angeschlossen,  sondern 
ist  direkt  mit  der  RESTORE- 
Leitung  des  Computers  verbun¬ 
den.  Dort  löst  sie  einen  soge¬ 
nannten  NMI-Interrupt  aus.  Die 
SHIFT-LOCK-Taste  ist  lediglich 
eine  mechanische  Verriegelung 
der  SHIFT-Taste. 

Adresse  204  ($CC) 

Schalter  für  Cursor  blinken 

Ein  Wert  größer  0  in  dieser 
Speicherzelle  schaltet  das  Blin¬ 
ken  des  Cursors  ab.  Diese  Ab¬ 
schaltung  erfolgt  durch  das  Be¬ 
triebssystem  immer  dann,  wenn 
sich  Zeichen  im  Tastaturpuffer 
befinden  und  wenn  ein  Pro¬ 
gramm  ausgeführt  wird. 

Im  folgenden  Beispiel  einer 
Eingabe  mit  dem  GET-Befehl, 
bei  dem  bekannterweise  der 
Cursor  nicht  blinkt,  wird  demon¬ 
striert,  daß  durch  POKE  204,0 
der  Cursor  trotzdem  blinkt.  Das 
kann  für  selbstgeschriebene 
Eingabe-Routinen  interessant 
sein. 

10  PRINT' 'JA/NEIN? 

20  POKE  204,0 

30  GET  A$:  IF  A$  =  ”"THEN  30 
40  PRINT  A$ 

Umgekehrt  kann  man  durch 
POKE  204,1  das  Blinken  des  Cur¬ 
sors  abschalten.  Es  bleibt  dabei 
allerdings  dem  Zufall  überlas¬ 
sen,  ob  er  in  der  Ein-  oder  Aus¬ 
phase  abgeschaltet  wird.  Wenn 
Sie  Pech  haben,  dann  bleibt  der 
Cursor  bewegungslos  stehen. 
Dieser  Schönheitsfehler  kann 
mit  Hilfe  der  Speicherzelle  207 
beseitigt  werden. 

Adresse  205  ($CD) 

Zähler  für  Blinkfrequenz  des  Cursors 

Das  Blinken  des  Cursors  be¬ 
sorgt  die  Interrupt-Routine.  60 
mal  in  jeder  Sekunde  unter¬ 
bricht  sie  den  normalen  Pro- 
yrarrirnablauf.  Während  dieser 
Zeit  führt  sie  mehrere  »Haus- 
halt«-Arbeiten  durch.  So  wird 
hier  die  Tastatur  abgefragt  und 
das  Cursorblinken  gesteuert. 

Dazu  wird  die  Zahl  20  in  die 
Speicherzelle  205  geschrieben 
und  bei  jeder  Unterbrechung 
dann  um  1  reduziert.  Wenn  die 
Zahl  in  205  den  Wert  0  erreicht 
hat,  wird  der  Cursor  eingeschal¬ 
tet.  Nach  Adam  Riese  erfolgt  das 
also  60/20  =  3  mal  pro  Sekunde. 

Adresse  206  ($CE) 

Bildschirmcode  des  Zeichens  unter  dem 
Cursor 

Im  Prinzip  ist  der  Cursor  nichts 
anderes  als  das  wiederholte 

146 
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TASTE 

C  64 

VC 

20 

C  64 

VC 

20 

203 

653 

203 

653 

203 

653 

203 

653 

nichts 

64 

0 

64 

0 

+ 

40 

0 

5 

0 

Fl 

4 

0 

39 

0 

- 

43 

0 

61 

0 

F3 

5 

0 

47 

0 

* 

49 

0 

14 

0 

F5 

6 

0 

55 

0 

/ 

55 

0 

30 

0 

F7 

3 

0 

63 

0 

= 

53 

0 

46 

0 

1' 

54 

0 

54 

0 

A 

10 

0 

17 

0 

f* 

57 

0 

8 

0 

B 

28 

0 

35 

0 

44 

0 

37 

0 

C 

20 

0 

34 

0 

. 

45 

0 

45 

0 

D 

18 

0 

18 

0 

47 

0 

29 

0 

E 

14 

0 

49 

0 

50 

0 

22 

0 

F 

21 

0 

42 

0 

48 

0 

6 

0 

G 

26 

0 

19 

0 

0 

46 

0 

53 

0 

H 

29 

0 

43 

0 

I 

33 

0 

12 

0 

CRSR  <- 

2 

0 

23 

0 

J 

34 

0 

20 

0 

GRSRT 

7 

0 

31 

0 

K 

37 

0 

44 

0 

DEL 

0 

0 

7 

0 

L 

42 

0 

21 

0 

HOME 

51 

0 

62 

0 

M 

36 

0 

36 

0 

STOP 

63 

0 

24 

0 

N 

39 

0 

28 

0 

RETURN 

1 

0 

15 

0 

□ 

38 

0 

52 

0 

SPACE 

60 

0 

32 

0 

P 

41 

0 

13 

0 

Q 

62 

0 

48 

0 

SHIFT 

64 

1 

64 

1 

R 

17 

0 

10 

0 

S 

13 

0 

41 

0 

C= 

64 

2 

64 

2 

T 

22 

0 

50 

0 

ü 

30 

0 

51 

0 

CTRL 

64 

4 

64 

4 

V 

31 

0 

27 

0 

W 

9 

0 

9 

0 

SHIFT 

X 

23 

0 

26 

0 

und  C= 

64 

3 

64 

3 

Y 

25 

0 

1  1 

0 

Z 

12 

0 

33 

0 

SHIFT 

— 

und  CTRL 

64 

5 

64 

5 

1 

56 

0 

0 

0 

2 

59 

0 

56 

0 

C=  und 

3 

8 

0 

1 

0 

CTRL 

64 

6 

64 

6 

4 

11 

0 

57 

0 

5 

16 

0 

2 

0 

SHIFT 

6 

19 

0 

58 

0 

und  C= 

7 

24 

0 

3 

0 

und  CTRL 

64 

7 

64 

7 

8 

27 

0 

59 

0 

9 

32 

0 

4 

0 

0 

35 

0 

60 

0 

Tabelle  1 

.  Tabelle  aller  Tasten-Codes. 

Erstaunlich  ist,  daß  sich  mit  den  beiden 

Speicherzellen  (203  und  653)  insgesamt  476  Funktionstasten  erzeugen  lassen. 

Drucken  eines  Zeichens  in  re- 
verser  Form,  das  gerade  unter 
dem  Cursor  steht.  Normalerwei¬ 
se  ist  dies  das  Leerzeichen,  des¬ 
halb  sehen  wir  meistens  das  aus¬ 
gefüllte  Viereck.  Fahren  Sie 
aber  mit  dem  Cursor  auf  einen 
Buchstaben,  dann  erscheint  die¬ 
ser  wechselweise  normal  und 
revers.  In  Speicherzelle  206 
steht  jeweils  der  Bildschirmco¬ 
de  des  Zeichens  unter  dem  Cur¬ 
sor.  Geben  Sie  die  folgende  An¬ 
weisung  direkt  ein,  fahren  aber 
noch  vor  dem  Drücken  der 
RETURN-Taste  mit  dem  Cursor 
zurück  auf  eines  der  Zeichen, 
zum  Beispiel  auf  ein  P: 

PRINT  PEEK(206) 

Nach  RETURN  erscheint  die 
Zahl  16.  Das  ist  also  der  Bild¬ 
schirmcode  des  Zeichens,  auf 
dem  der  Cursor  saß,  als  die 


RETURN-Taste  gedrückt  wurde. 
Sie  können  das  mit  allen  ande¬ 
ren  Zeichen  dieser  Zeile  wie¬ 
derholen. 

Ich  kann  mir  vorstellen,  daß  ei¬ 
ne  derartige  Abfrage  bei  einem 
Programm,  welches  mit  dem 
Bildschirm  arbeitet,  sinnvoll  sein 
kann.  Die  Speicherzelle  206 
wird  allerdings  nach  jedem  Blin¬ 
ken  auf  den  neuesten  Stand  ge¬ 
bracht. 

Adresse  207  ($CF) 

Flagge  für  Blinkzustand  des  Cursors 

In  dieser  Speicherzelle  wird 
festgehalten,  in  welcher  der  bei¬ 
den  Blink-Phasen  —  normal  oder 
revers — der  Cursor  sich  gerade 
befindet.  Eine  0  bedeutet  rever- 
ses  Zeichen,  eine  1  bedeutet  ein 
normales  Zeichen. 


Die  Abfrage  innerhalb  eines 
Basic-Programms  funktioniert 
nicht.  Denn  die  Interrupt- 
Routine  steuert  den  Phasen¬ 
wechsel.  Mit  POKE  kann  man  al¬ 
lerdings  etwas  bewirken.  Bei 
der  Erklärung  der  Speicherzel¬ 
le  204  habe  ich  auf  einen  Schön¬ 
heitsfehler  der  Anweisung  PO¬ 
KE  204,1  hingewiesen.  Sie  be¬ 
wirkt,  daß  zwar  das  Blinken  des 
Cursors  gestoppt  wird,  aber  er 
befindet  sich  unkontrolliert  in 
der  normalen  oder  in  der  rever- 
sen  Phase. 

Die  reverse  Phase  (der  Schön¬ 
heitsfehler)  kann  durch  POKEn 
einer  1  in  die  Speicherzelle  207 
vermieden  werden.  Im  neben¬ 
stehenden  Texteinschub  »Spiele 
mit  dem  Cursor«  wird  davon  Ge¬ 
brauch  gemacht. 

(Dr.  H.  Hauck/ah) 
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TEXTEINSCHUB  Nr.  1 

Abfrage  der  Tastentodes  oder  476 
Funktionstasten 

In  der  Speicherzelle  203  stehen  die  Tastencodes  der  gerade 
gedrückten  Taste,  insgesamt  64  an  der  Zahl.  Vier  davon,  die  Steu¬ 
ertasten  CTRL,  C  =  (Commodore-Taste),  linke  und  rechte  SHIFT- 
Taste  erscheinen  allerdings  dort  nicht,  sondern  werden  sofort  in 
die  Speicherzelle  653  umgeleitet.  Dort  erhalten  sie  (allerdings  in 
mehrfacher  Kombination)  insgesamt  acht  Codewerte.  Die  Tabel¬ 
le  der  Speicherzelle  203  zeigt  alle  Werte  für  den  C  64  und  den  VC 
20. 

In  meinem  Kurs  »Alle  Tasten-,  Zeichen-  und  Steuercodes«  in  den 
1984-Ausgaben  des  64 'er  habe  ich  die  Tastencodes  und  ihre  An¬ 
wendung  detailliert  beschrieben. 

Ich  erlaube  mir,  hier  einige  Erklärungen  und  Beispiele  zu  wie¬ 
derholen. 

Anfänger  der  Computerei  sitzen  oft  verzweifelt  an  dem  Pro¬ 
blem,  die  Funktionstasten  der  Commodore-Computer  zum  Le¬ 
ben  zu  erwecken.  Nun,  wir  wissen,  daß  sie  nur  über  die  Abfrage 
ihrer  Codewerte  eingesetzt  werden  können. 

Als  Codewerte  werden  normalerweise  nur  die  ASCII-Codes 
genannt. 

Die  schon  erwähnte  Tabelle  zeigt  jedoch,  daß  die  Funktionsta¬ 
sten  auch  Tastencodes  haben.  Allerdings  gibt  uns  das  nur  vier 
Möglichkeiten,  entsprechend  der  Aufschrift  für  die  ungeraden 
Funktionstasten-Zahlen.  Um  auch  F2  bis  F8  zu  erhalten,  drücken 
wir  ja  immer  gleichzeitig  die  SHIFT-Taste.  Das  können  wir  bei  der 
Abfrage  der  Tastencodes  natürlich  auch  machen,  indem  wir  uns 
den  Inhalt  der  Zelle  203  und  653  ansehen.  Das  folgende  kleine 
Programm  überprüft,  über  den  Tastaturcode,  ob  eme  der  acht 
Funktionstasten  gedrückt  wurde. 

10  A  =  PEEK(203) 

20  B  =  PEEK(653) 

30  IF  A  =  4  AND  B  =  0  THEN  PRINT1 'Fl“ 

40  IF  A  =  5  AND  B  =  0  THEN  PRINT"F3" 

50  IF  A  =  6  AND  B  =  0  THEN  PRINT"F5'' 

60  IF  A  =  3  AND  B  =  0  THEN  PRINT"F7“ 

70  IF  A  =  4  AND  B  =  1  THEN  PRINT"F2" 

80  IF  A  =  5  AND  B  =  1  THEN  PRINT"F4" 

90  IF  A  =  6  AND  B  =  1  THEN  PRINT”F6'‘ 

100  IF  A  =  3  AND  B  =  1  THEN  PRINT"F8' 

110  GOTO  10 

Die  Codezahlen  gelten  für  den  C  64,  für  den  VC  20  müssen  aus 
der  Tabelle  die  entsprechenden  Werte  eingesetzt  werden. 

Wenn  Sie  sich  anschauen,  was  in  der  Speicherzelle  653  alles 
passiert,  dann  werden  Sie  sicher  sehen,  wie  willkürlich  die  Defi¬ 
nition  der  geraden  Funktionstasten  ist.  Statt  der  Kombination  der 
Funktionstasten  mit  der  SHIFT-Taste  können  wir  genauso  gut  die 
CTRL-Taste  nehmen,  oder  die  Commodore-Taste  oder  alle  zwei 
oder... oder...! 

Mit  den  acht  Codewerten  in  Zelle  653  (0  bis  7)  der  acht  mögli¬ 
chen  Kombinationen  der  drei  Steuertasten  kann  jede  Funktions¬ 
taste  acht  Funktionen  haben.  Das  ergibt  insgesamt  32  Funktions¬ 
tasten,  und  nicht  acht,  wie  die  Aufschrift  vermuten  läßt.  Einige  da¬ 
von  werden  in  dem  kleinen  Demo(nstrations)-Programm  einge¬ 
setzt.  Zweck  des  Programms  soll  das  Umschalten  auf  verschiede¬ 
ne  Rahmen-  und  Hintergrundfarben  sein.  Für  den  C  64  gilt: 

10  PRINT  CHR$(147) 

20  A  =  PEEK(203) 

30  B  =  PEEK(653) 

40  IF  A  =  4  AND  B  =  2  THEN  POKE  53280, 6:POKE  53281,7 
50  IF  A  =  5  AND  B  =  2  THEN  POKE  53280, 5:POKE  53281,2 
60  IF  A  =  6  AND  B  =  2  THEN  POKE  53280, l:POKE  53281,1 
70  IF  A  =  1  AND  B  =  7  THEN  POKE  53280, 3:POKE  53281, 1 
80  GOTO  20 

Für  den  VC  20  gilt: 

10  PRINT  CHR$(147) 

20  A  =  PEEK(203) 

30  B  =  PEEK(653) 

40  IF  A  =  4  AND  B  =  2  THEN  POKE  36879,126 
50  IF  A  =  5  AND  B  =  2  THEN  POKE  36879,45 
60  IF  A  =  6  AND  B  =  2  THEN  POKE  36879,25 
70  IF  A  =  1  AND  B  =  7  THEN  POKE  36879,27 
80  GOTO  20 


Zeile  40  schaltet  mit  Fl  und  C  =  die  Farbkombination  BLAU/GELB 
ein. 

Zeile  50  schaltet  mit  F3  und  C  =  die  Farbkombination  ROT/GRÜN 
ein. 

Zeile  60  schaltet  mit  F5  und  C  =  die  Farbe  Weiß  ein. 

Als  Spezialität  schaltet  Zeile  70  in  den  Normalzustand  zurück, 
allerdings  mit  der  seltenen  Tastenkombination  —  (Pfeil  links)  und 
alle  drei  Steuertasten  (CTRL,  SHIFT,  C=)  gleichzeitig  gedrückt. 

Jetzt  aber  kommt  es  noch  ganz  dick! 

Ich  habe  oben  gesagt,  daß  wir  nicht  acht,  sondern  32  Funktionsta¬ 
sten  haben.  Die  Verwendung  der  vier  Funktionstasten  in  Kombi¬ 
nation  mit  den  acht  Steuertastencodes  in  653  macht  es  möglich. 
Dasselbe  gilt  natürlich  für  jede  andere  Taste  auch!  Zeile  70  im 
Demo-Programm  beweist  es. 

Da  uns  insgesamt  60  Tasten  zur  Verfügung  stehen,  können  wir 
theoretisch  480  Funktionstasten  erzeugen  —  theoretisch,  weil  ja 
auch  die  STOP-Taste  eine  gültige  Taste  ist.  Diese  Taste  steht  uns 
allerdings  nur  in  den  Kombinationen  mit  der  SHIFT-Taste  zur  Ver¬ 
fügung.  Ohne  SHIFT  tut  sie  ihre  Pflicht  —  sie  stoppt.  Mit  SHIFT 
aber  stoppt  sie  nicht,  so  daß  wir  insgesamt  472  mögliche  Kombi¬ 
nationen  haben  —  sicher  mehr,  als  Sie  je  brauchen  werden. 

Übrigens,  von  den  Kombinationen  sind  diejenigen  mit  der 
CTRL-  oder  Commodore-Taste  in  Spielen  oder  Anwenderpro¬ 
gramme  wie  Vizawrite  oder  Programmierhilfen  sehr  verbreitet. 
Ich  kann  Ihnen  nur  empfehlen,  diese  Art  der  Tastenabfrage 
ebenfalls  zur  Steuerung  von  Programm-Abläufen  einzusetzen. 


TEXTEINSCHUB  Nr.  2 

Cursor-Spiele  oder  der  Input-Befehl 
einmal  etwas  anders 

Die  Speicherzellen  204,  205  und  207  haben  alle  in  einer  be¬ 
stimmten  Weise  mit  dem  Cursor  zu  tun.  Da  die  Details  bei  jeder 
dieser  Zellen  behandelt  worden  sind,  möchte  ich  hier  zusammen¬ 
gefaßt  ihren  Einsatz  an  einem  kleinen  Demo-Programm  zeigen. 
Die  Idee  zu  diesem  Programm  stammt  von  Russ  Davies  (COMPU- 
TE!  Publications). 

Russ  Davies  geht  von  der  in  vielen  Leserbriefen  geäußerten 
Unzufriedenheit  mit  dem  INPUT-Befehl  aus,  der  nicht  beliebig 
lange  Zeichenketten  zuläßt  und  sich  auch  bei  versehentlich  ge¬ 
drückter  RETURN-Taste  schlecht  benimmt. 

Eine  Abhilfe  wäre  der  GET-Befehl,  aber  der  wiederum  liefert 
keinen  auffordernden  Cursor.  In  diese  Marktlücke  springt  das 
folgende  kleine  Programm,  welches  die  prinzipiellen  Anweisun¬ 
gen  zeigt  für: 

—  Eingobe  langer  Zeichenketten  mit  GET 

—  blinkender  Cursor  trotz  GET 

—  veränderbares  Blinken  des  Cursors 

10  POKE  211,0 

20  POKE  207,0:POKE  204,0;POKE  205,5 
30  FOR  1  =  1  TO  40:NEXT 
40  GET  A$ 

50  IF  A$  =  CHR$(13)  THEN  100 
60  PRINT  A$; 

70  X$=X$+ A$ 

80  GOTO  20 

100  POKE  207,0:POKE  204,0:POKE  211,0 
120  PRINT  X$:PRINT:GOTO  20 

Zeile  10  verwendet  im  Vorgriff  auf  das  nächste  Mal  die  Spei¬ 
cherzelle  211.  Dieser  Befehl,  auch  in  Zeile  100,  setzt  den  Cursor 
auf  den  Anfang  der  logischen  Zeile  zurück.  Zeile  20  müßte  eigent¬ 
lich  klar  sein.  Der  Wert  des  POKE-Befehls  für  205  ist  interessant. 
Durch  ihn  kann  die  Blinkfrequenz  des  Cursors  verändert  werden. 
Bei  diesem  Programm  ergibt  der  Wert  5  zusammen  mit  der  War¬ 
teschleife  in  Zeile  30  eine  mäßige  Blinkfrequenz.  Der  Wert  1  läßt 
den  Cursor  eifrig  zappeln. 

Zeile  30  wie  gesagt,  dient  zur  Abstimmung  der  Cursorfrequenz, 
die  von  der  Laufzeit  der  Programmschleife  (20  bis  80)  abhängt. 
Trotz  des  GET-Befehls  in  Zeile  40  blinkt  der  Cursor  wegen  der 
Flaggen  in  Speicherzellen  207  und  204. 

Zeile  70  baut  die  Zeichenkette  zusammen.  Zeile  50  erlaubt  ein 
Drücken  der  RETURN-Taste,  wodurch  lediglich  die  alte  Zeichen¬ 
kette  mit  der  neuen  Eingabe  zusammengebunden  wird.  Einen 
Aussprung  aus  der  Schleife  will  ich  Ihnen  selbst  überlassen.  Im 
vorliegenden  Beispiel  geht  er  nur  über  die  STOP-Taste. 
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Streifzüge  durch  die 
Gnrfikwelt  (Heil  2) 

Grafik  mit  dem  C  64,  dem  C  128  oder 
einem  anderen  Computer.  Auf  Bild¬ 
schirm,  Drucker  oder  Plotter.  Unser 
Grafik-System  nimmt  Formen  an. 


Wort 

HIRES-3-Syntax 

Plotter- Syntax 

INIT 

POKE53280.0 
(Rahmen  schwarz) 

OPENl.6,1  (Plot  X,Y) 

SYS37498  (HIRES 
anschalten) 

OPEN2.6.2  (Stiftfarbe) 

HFL, 6, 12 

PRINT  #2,0  (schwarz) 

(blau  auf  grau) 

CLOSE2 

START 

TRS, 0,320,0, 200 
legt  Ursprung 

PRINT  #1,"M”,  0,-200 

nach  links  unten 

PRINT  #1,’T' 

x  von  0  bis  320 

Papiervorschub  um 

y  von  0  bis  200 

200  Einheiten.  Dort  auch 
Koordinatenursprung. 

MITTE 

TRS, -160, 160, -100, 100 

Ursprung  in 

PRINT  #1.’'R”,240,0 

PRINT  #1,'T" 

Bildschirmmitte 

Ursprung  in  Papiermitte. 

PUNKT(X,Y) 

TPK,X,Y 

PRINT  #1,”R”,X,Y 

PRINT  #  1,"J",X  +  2,Y+  2 

PRINT  #1,”R”,X,Y 
etwas  ungenau,  weil  einzelner 
Punkt  nicht  sichtbar.  Deshalb 
sehr  kleiner  Strich. 

LINIE(XA, 

TLN,XA,YA,XB,YB 

PRINT  #1,"R",XA,YA 

YA.XB.YB) 

PRINT  #1,"J”,XB, YB 

KREIS(XM, 

TKR,XM,YM,KX, 

Hier  braucht  man  ein  kleines 

YM,RX,RY) 

RY,2*Pi 

Programm: 

M= 50:D  =  360*7r/(M*180) 
DIMT(M):T(0)=2*t 

FORI  =  lTOM:T(I) = T(H)  +  D 

PRINT  #  l,”R",RX*COS(T(I-l))+ 
XM,RY*SIN(T(I-1)) + YMPRINT 
#  l,"J”,RX*COS(T(I))+XM, 
RY*SIN(T(I))+YM 

NEXTI 

TEXT 

TEX,A$,YT,XT 

OPEN4,6:PRINT  #  1,”R”, 

(AS,XT,YT) 

XT.YT 

PRINT  #  4,A$:CLOSE4 

PRINT  #1,”M",240,-YT 

PRINT  #1,'T” 

SHOW 

HAN 

PRINT  #1,”R", 0,-200 
Papiervorschub  um 

200  Einheiten 

NORMAL 

HOF 

CLOSEI 

GRESET 

LOE:AUS 

OPEN7,6,7:PRINT  #7: 

CLOSE7 

Tabelle  1.  Die  grundlegenden  allgemeinen  Grafik-Befehle  und  ihre 
Übersetzung  in  HiRes-3-  oder  Plotter-Syntax 


Die  in  dieser  und  den  kom¬ 
menden  Folgen  gezeigten 
Programme  sollen  möglichst 
weitgehend  unabhängig  sein 
von  der  Art  des  verwendeten 
Grafik-Systems.  Ob  Sie  also  ei¬ 
nen  Commodore  64  mit  HiRes-3 
oder  GBasic  (oder...)  benutzen 
und  die  Ausgabe  auf  dem  Bild¬ 
schirm,  dem  Drucker  oder  ei¬ 
nem  Plotter  stattfinden  lassen, 
ob  Sie  zu  den  Glücklichen  gehö¬ 
ren,  die  schon  einen  Commodo¬ 
re  C  128  vor  sich  stehen  haben... 
all  das  soll  möglichst  weitge¬ 
hend  erfaßt  sein.  Nicht  immer  — 
gestehe  ich  ganz  freimütig  — 
läßt  sich  so  eine  Allgemeingül¬ 
tigkeit  erreichen.  Besonders  in 
dieser  Folge  werden  die  drei 
größeren  Programme  noch  spe¬ 
zialisiert  sein.  Die  kleineren 
aber  —  die  fürs  Auge  —  sollen 
diese  Anforderungen  schon  er¬ 
füllen. 

Dazu  werde  ich  allgemein  ver¬ 
ständliche  Befehlsworte  ver¬ 
wenden  (wie  zum  Beispiel  LINIE 

oder  PUNKT  etc.)  und  deren  Ent¬ 
sprechung  in  zwei  Grafik-Syste¬ 
men  angeben:  In  HiRes-3-Syntax 
und  in  der  Syntax,  die  mit  dem 
Plotter  1520  verwendet  wird. 
Falls  Sie  ein  anderes  System  be¬ 
nutzen  oder  einen  C  128  Ihr  ei¬ 
gen  nennen,  dürfte  es  Ihnen 
nicht  schwerfallen,  die  Syntax- 
Anpassungen  vorzunehmen. 
Folgende  zehn  Befehle  sollen  zu¬ 
nächst  vorgestellt  werden  (wo¬ 
bei  sich  später  noch  der  eine 
oder  andere  zusätzliche  Befehl 
als  nötig  herausstellen  kann): 
INIT 

Werde  ich  immer  dann  ver¬ 
wenden,  wenn  die  Grafik  initiali¬ 


siert  werden  soll.  Damit  wird  die 
Grafik  eingeschaltet,  eine  even¬ 
tuell  Bit-Map  eingerichtet  und 
gelöscht  und  die  Farbgebung 
bestimmt. 

START 

Soll  das  Grafiksystem  in  einen 
definierten  Ausgangszustand 
bringen. 

MITTE 

Legt  den  Koordinatenur¬ 
sprung  in  die  Bildmitte. 

PUNKT(X,Y) 

Setzt  einen  Punkt  an  die  Stelle 
X,Y. 

LINIE(XA,YA,XB,YB) 

Zieht  eine  Linie  vom  Aus¬ 
gangspunkt  XA,YA  zum  End¬ 
punkt  XB.YB. 

KREIS(XM,YM,RX,RY) 

Zeichnet  eine  Ellipse  (RX  un¬ 
gleich  RY)  oder  einen  Kreis  (RX 
=  RY)  um  den  Mittelpunkt  XM, 
YM  mit  den  Radien  RX  und  RY. 
TEXT(A$,XT,YT) 

Schreibt  den  Text  A$  ab  der 
Bildstelle  XT.YT. 

SHOW 

Ein  erstelltes  Bild  wird  ge¬ 
zeigt. 

NORMAL 

Schaltet  den  Grafik-Modus  ab. 

GRESET 

Führt  einen  Grafik-System-Re- 
set  aus.  Danach  muß  für  erneute 
Benutzung  der  Grafik  wieder 
neu  initialisiert  werden. 

In  der  Tabelle  1  sind  diese  all¬ 
gemeinen  Befehle  aufgeführt  zu¬ 
sammen  mit  den  Übersetzungen 
in  die  Syntax  von  HiRes-3  und 
die  des  Plotters  1520: 

Sehen  wir  uns  das  nun  an  zwei 
netten  Beispielen  an.  Als  erstes 
das  Programm  »verschlungene 
Spiralen«,  welches  (siehe  Bilder 
la,  lb)  mehrere  Spiralen  (näm¬ 
lich  N),  die  mit  einem  Startwinkel 
W  aus  dem  Zentrum  heraustre¬ 
ten,  zu  einer  Scheibe  mit  dem 
Radius  R  anordnet. 


Das  Programm  »Spiralen«  (Li- 
sting  1)  verwendet  die  allgemei¬ 
nen  Grafik-Befehle.  Dieses  Li- 
sting  kann  jedoch  nicht  auf  dem 
C  64  laufen.  Aber  je  nachdem, 
welchen  Computer  Sie  verwen¬ 
den,  oder  welche  Basic-Erwei- 
terung,  können  Sie  deren  Befeh¬ 
le  hier  einsetzen.  Listing  2  und 
Listing  3  geben  zwei  Beispiele. 

Probieren  Sie  nun  mal  aus  — 
unter  Zuhilfenahme  der  Tabelle 
1  —  anstelle  der  allgemeinen  Be¬ 
fehle  die  HiRes-3-Syntax  einzu¬ 
setzen.  Dabei  sollte  dann  etwas 
Ähnliches  herauskommen  wie 
Listing  2,  HiRes-Spiralen: 

Unter  Verwendung  der  Plot¬ 
ter-Syntax  entsteht  das  Pro¬ 
gramm  Plotter-Spiralen  (Listing 
3). 

Sollten  Sie  ein  anderes  Grafik- 
System  benutzen,  können  Sie 
solch  ein  Programm  auf  ähnlich 
simple  Weise  übersetzen. 

Als  zweites  Beispiel  soll  das 
Programm  »Fensterrose«  dienen 


(der  Name  rührt  daher,  daß  das 
Ergebnis  aussieht,  wie  die  Fen¬ 
sterrosen  in  alten  gotischen  Kir¬ 
chen).  Auch  hier  biete  ich  Ihnen 
drei  Versionen:  »Fensterrose«  ist 
das  mit  den  allgemeinen  Grafik- 
Befehlen  (Listing  4),  »HiRes-Fen- 
sterrose«  ist  die  HiRes-3-Fassung 
(Listing  5)  und  »Plotter-Fenster¬ 
rose«  schließlich  die  Plotter-Ver¬ 
sion  (Listing  6). 

Die  Ergebnisse  finden  Sie  als 
Bilder  2a  und  2b: 

Die  Fensterrose-Programme 
fragen  nach  der  Anzahl  der 
Stützpunkte  auf  dem  Kreisum¬ 
fang,  dann  nach  dem  gewünsch¬ 
ten  Radius  und  schließlich  noch 
nach  dem  Ort,  an  den  der  Text 
gedruckt  werden  soll.  Wie  Sie 
feststellen  werden,  ist  Fensterro¬ 
se  sehr  vielseitig,  und  auf  dem 
Bildschirm  lassen  sich  in  der 
HiRes-Version  Moiree-Muster 
erzeugen. 

1 .  Eine  »Business-Anwendung« 

Eines  der  Themen,  auf  die  wir 
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in  den  nächsten  Folgen  zu  spre¬ 
chen  kommen  werden,  ist  die  so¬ 
genannte  Präsentationsgrafik, 
die  häufig  im  kaufmännischen 
Bereich  Verwendung  findet. 
Darunter  versteht  man  zum  Bei¬ 
spiel  Balkendiagramme  oder 
die  vielgeliebten  Tortendia¬ 
gramme.  Das  hier  gezeigte  Bei¬ 
spiel  arbeitet  mit  HiRes-3  und 
unter  Umständen  einem  Druk- 
ker.  Es  bedient  sich  eines  soge¬ 
nannten  Abweichungs-Balken- 
diagrammes.  Von  maximal  50 
eingegebenen  Werten  (Umsatz¬ 
ziffern,  Gewinne,  etc.)  stellt  es 
den  Mittelwert  als  horizontale  Li¬ 
nie  dar  und  daran  dann  die  posi¬ 
tiven  oder  negativen  Abwei¬ 
chungen  der  einzelnen  Einga¬ 
bebeträge.  Außerdem  gibt  das 
Programm  Auskunft  über  den 
Zahlenwert  des  Mittels  und  die 
maximalen  Abweichungen.  Ein 
Beispiel  für  solch  ein  Diagramm 
sehen  Sie  in  Bild  3: 

Das  Programm  »Abweichun¬ 
gen«  (Listing  7)  erfragt  zunächst 
die  Anzahl  der  Werte,  dann  je¬ 
den  Einzelwert.  Es  ist  leicht  zu 
ändern,  so  daß  es  die  Werte 
auch  von  der  Diskette  oder  Kas¬ 
sette  nehmen  kann.  Am  Ende 
der  grafischen  Darstellung  kön¬ 
nen  Sie  durch  »D«  einen  Aus¬ 
druck  auf  dem  Drucker  1526 
(oder  kompatible)  erzielen, 
durch  »N«  eine  neue  Eingabe 
starten  oder  durch  »E«  das  Pro¬ 
gramm  beenden. 

2.  Ein  Piotter-Programm 

Grafik  und  Mathematik  sind 
nicht  voneinander  zu  trennen. 
Eine  häufige  Anwendung  ist  die 
Untersuchung  von  2D-Funktio- 
nen  durch  die  grafische  Darstel¬ 
lung.  Die  Zeiten  der  mühselig 
berechneten  Wertetabellen  und 
der  Kurvendiskussion  sind  zwar 


noch  nicht  ganz  vorbei  (es  gibt 
halt  doch  noch  einige  exotische 
Funktionen,  die  dem  Computer 
widerstehen),  für  die  weitaus 
meisten  Anwendungen  ist  aber 
das  hier  vorgestellte  Programm 
»Funktionenplot«  (Listing  8)  lei¬ 
stungsfähig  genug.  Es  bedarf 
dazu  eines  Plotters  1520.  Zu¬ 
nächst  wird  vorgestellt,  welche 
Funktion  sich  derzeit  im  Pro¬ 
gramm  befindet.  Man  hat  nun 
die  Möglichkeit,  eine  neue 
Funktion  einzuspeisen.  Danach 
bestimmt  man  selbst,  wie  das 
Koordinatensystem  aussehen 
soll  (bei  einer  Ausdehnung  von 
mehr  als  25  Einheiten  in  X- 
Richtung  wird  keine  Skalierung 
mehr  vorgenommen)  und  man 
bestimmt,  in  welchem  Teil  des 
Systems  die  Funktion  darzustel¬ 
len  ist.  Ein  Beispiel  für  die  entste¬ 
henden  Plots  zeigt  Bild  4. 

Es  gibt  noch  eine  Menge  Raffi¬ 
nessen,  die  in  diesem  Beispiel¬ 
programm  fehlen.  Aber  die  Un¬ 
tersuchung  von  Funktionen  wird 
uns  ebenfalls  eine  der  kommen¬ 
den  Grafik-Folgen  beschäftigen. 
Dort  sollen  dann  auch  alle  Fein¬ 
heiten  zur  Sprache  kommen. 

Fortsetzung  auf  Seite  170 


Bild  2a.  Der  Matrixdrucker 
gibt  es  nur  undeutlich  wieder: 
Fensterrose  mittels  HiRes-3 


Bild  2b.  Von  bestechender  Schönheit:  Die  Fensterrose  mit 
dem  Plotter  gezeichnet 


ABUE ICHUNGS-BALKEND I AGRAMM 


GROESSTE  UEBERSCHRE ITUN6  =  16.1666667 

GROESSTE  UNTERSCHREI TUNG  =  -35.8333333 
MITTELWERT  =  1.83333333 

Bild  3.  Das  Abweichungs-Balken-Diagramm 


v?-  SINCX  3 

Bild  4.  Ein  Beispiel  zur  Arbeit  des  Plotter-Programmes 
zur  Darstellung  von  Funktionen 


1  RtM**********#»*«*»**»##«*#**#***#*** 

2  REM*  * 

3  REM*  VERSCHLUNGENE  SPIRALEN  * 

4  REM*  VERSION  M.  ALLGEMEINEN  BEFEHLEN* 

5  REM*  * 

6  REM*  HEIMO  PÜNNAIH  HAMBURG  1985  * 

7  REM*  * 

8  REM********************************** 

9  REM  *****  EINGABEN  ****************** 

10  POKE  53280, 0:POKE  53281,0:POKE  646,5: PR 
INT  CHR$(147> 

15  I NPUT " ANZAHL  SPIRALEN" ; N: INPUT"TEXTSTAR 
T  XT , YT " ; XT , YT 

20  I NPUT " RAD I US , ST ARTW I NKEL " ; R , A 1 
22  INIT 
25  START 
30  MITTE 

Listing  1.  Spiralen 

Das  Spiralen-Programm  mit  den  allgemeinen  Grafik-Befehlen 
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35  GOSUB  100: KRE IS(0,B,R,R) 

40  Ai= 11  VERSCHLUNGENE  SPIRALEN" 

45  TEXT (A$, XT, YT) 

50  SHOW 

POKE  198,0: WAIT  198,1 
N  OR  MAL 
GRESET 
70  END 

100  REM******  UNTERPROGRAMM  ZEICHNEN  *** 
102  NN=N*100: RA=R/NN: DIM  T(NN):A=A1 
105  FOR  J  =  1  TO  N:A=A+2*.t/N 
110  T=A:TH=2*.t/100:T(0)=T 

115  FOR  1=1  TO  NN : T ( I ) =T ( I — 1 ) +TH : RR=RA* I 
120  LINIE ( (RR-RA) *COS (T ( 1-1 ) ) , (RR-RA) *SIN ( 
T(I-l) ) , RR*COS (T ( I ) ) ,RR*SIN (T ( I ) ) ) 

125  NEXT  I 
130  NEXT  J 
135  RETURN 


55 

60 

65 


©  G4'er 


Listing  1.  Spiralen  (Schluß) 


1  REM********************************** 

<038> 

2  REM* 

* 

<051  > 

3  REM*  VERSCHLUNGENE  SPIRALEN 

*• 

<232 > 

4  REM*  VERSION  FUER  H  I  R  E  S  -  3 

* 

<  066  > 

5  REM* 

* 

<  054  > 

6  REM*  HEIMO  PONNATH  HAMBURG  1985 

* 

<  1 3 1  > 

7  REM* 

-* 

<056  > 

8  REM********************************** 

<045> 

9  REM  *****  EINGABEN  ****************** 

10  POKE  53280,0: POKE  5328 1,0: POKE  646, 5: PR 

<  1 80  > 

INT  CHR*(147) 

<  124> 

15  I NF'UT "  ANZAHL  SRI RALEN"  ;  N :  INPUT " TEXTSTAR 

T  XT , YT " ; XT , YT 

<253> 

20  I NPUT " RAD I US , START W I NKEL " ; R , A 1 

<  099  > 

22  REM****  INIT  **** 

<  1  73  > 

23  SYS  37498: HFL, 6, 12 

<047  > 

25  REM****  START  **** 

26  TRS, 0,320, 0,200 

-.229  - 
<237“ 

30  REM****  MITTE  **** 

<  182> 

32  TRS, -160, 160,-100, 100 

<002> 

35  GOSUB  100:TKR,0,0,R,R,2*i 

<  153> 

40  A$=" VERSCHLUNGENE  SPIRALEN" 

<24  1  > 

42  REM****  TEXT  **** 

<092> 

45  TEX , A$ , YT , XT 

<  179> 

50  REM****  SHOW  (HIER  UNNOET IG) **** 

<021  > 

55  POKE  198,0: WAIT  198,1 

<027> 

60  REM****  NORMAL  **** 

<  103> 

62  HOF 

<061  > 

65  REM****  GRESET  **** 

<  138> 

67  LOE : AUS 

<214> 

70  END 

<072> 

100  REM******  UNTERPROGRAMM  ZEICHNEN 

*** 

<Z48> 

102  NN=N*100: RA=R/NN: DIM  T(NN):A=A1 

<033> 

105  FOR  J=1  TO  N: A=A+2*£/N 

<085> 

110  T=A:TH=2*±/100:T(0)=T 

<2 1 1  > 

115  FOR  1=1  TO  NN: T ( I ) =T ( I— 1 ) +TH: RR=RA*I 

120  TLN , (RR-RA) *COS(T ( I — 1 ) ) , (RR-RA) *SIN (T ( 

<048> 

1-1) ) , RR*CQS (T ( I ) ) , RR*SIN (T ( I ) ) 

<  198> 

125  NEXT  I 

<209> 

130  NEXT  J 

<222> 

135  RETURN 

<193> 

©  64'er  Listing  2.  HiRes-Spiralen. 

Die  Übersetzung  in  die  Syntax  von 

HiRes-3 

1  REM********************************** 

<03B> 

2  REM* 

* 

<051  > 

3  REM* 

VERSCHLUNGENE  SPIRALEN 

* 

<232> 

4  REM* 

VERSION  FUER  PLOTTER  1520 

* 

<  131  > 

5  REM* 

* 

<054> 

6  REM* 

HEIMO  PONNATH  HAMBURG  1985 

* 

<  131  > 

7  REM* 

* 

<056> 

8  REM********************************** 

<045> 

9  REM  *****  EINGABEN  ****************** 

<180> 

10  POKE 

53280,0: POKE  5328 1,0: POKE  646 

,5:  PR 

INT 

CHRT (147) 

<  124> 

15  INPUT "ANZAHL  SPIRALEN" ; N: INPUT "TEXTSTAR 

Listing  3. 

Plotter-Spiralen 

Das  Spiralen-Programm  mit  der  Plotter-Syntax 

T  XT,YT" ; XT,YT 

20  I NPUT " RAD I US , ST ARTW I NKEL " ; R , A 1 

22  REM****  I NI T  **** 

23  OPEN  1,6,1: GPEN  2 , 6 , 2: PRINT#2 , 0: CLQSE  2 

25  REM****  START  **** 

26  PRINT#1 , "M" , 0 , —200 : PR I NT #  1  ,  "  I  " 

30  REM****  MITTE  **** 

32  PR I NT #1  ,  "R 11 ,240,0:  PR I NT #  1  ,  "  I  "  :  GGSUB  100 

33  REM  ****  KREIS  ****** 

35  M=50 :  D=360* T,/  (  M*  1 80 )  :  D I M  K  (M>  :  K  (0)  =2*± 

36  FOR  1=1  TO  M : K ( I ) =K ( I  —  1 >  +D : PR I NT #1 , “R" , 
R*COS(K<I-l) ) , R*SIN (K ( I— 1 ) ) 

37  PRINT#1 , " J " ,R*COS (K(I) ) ,R*SIN(K(I) ) : NEX 
T  I : PRINT#1 , "H" 

40  AS=" VERSCHLUNGENE  SPIRALEN" 

42  REM****  TEXT  **** 

43  OPEN  4 ,6: PRINT# 1 , "R" , XT , YT: PRINT#4 , Af : C 
LOSE  4 

45  PR I NT# 1 , " M " , 240 , - YT : PR I NT# 1 , " I" 

50  REM****  SHOW  **** 

52  PR I NT# 1 , "R" , 0 , -200 : PR I NT# 1 , " I " 

55  POKE  198,0: WAIT  198,1 
60  REM****  NORMAL  **** 

62  PR I NT # 1 , " H " : CLOSE  1 
65  REM****  WERTE  AUSDRUCKEN  ***** 

70  OPEN  3,6,3: PRINT#3 ,0: OPEN  4 , 6: PRINT#4 : P 
RINT#4 , "  N" , " C2SPACE1XT" , " {2SPACE1YT" , " 
{2SPACEJR" , " C2SPACEJW" 

75  PRINT#4 , N, XT , YT , R , Al : PRINT#3 , 1 : PRINT#4: 

CLOSE  4: CLOSE  3 
80  REM****  GRESET  **** 

85  OPEN  7,6,7: PR I NT #7 : CLOSE  7 
90  END 

100  REM******  UNTERPROGRAMM  ZEICHNEN  *** 
102  NN=N*100: RA=R/NN: DIM  T(NN):A=A1 
105  FOR  J=1  TO  N:A=A+2*±/N 
110  T=A:TH=2*i/100:T(0)=T 
115  FOR  1  =  1  TO  NN; T  C I ) =T ( I  — 1 ) +TH: RR=RA*I 
120  PRINT#1 , "R" , (RR-RA) *COS(T(I-l) ) , (RR-RA 
) *SIN (T ( I— 1 ) ) 

122  PRINT#1 , "J" ,RR*COS(T (I) ) ,RR*SIN(T(I> ) 
125  NEXT  I 
1H130  NF*  J 
135  RETURN 


<253> 
<099> 
<173> 
<236> 
<009> 
<237  > 

<  182> 

<  177> 
<101>  ■ 
<212> 

<  194> 

<  1 30  > 
<241  > 
<092> 

<  171  > 

<  125> 
<224  > 
<072> 
<027> 

<  103> 

<  145> 
<073> 


<251  > 

<042> 

<  153> 

<  194> 
<092> 
<048> 
<033> 
<085> 
<21 1  > 
<048  > 

<201  > 
<047> 
<209> 
<222> 

<  193> 


©  64'er  Listing  3.  Plotter-Spiralen  (Schluß) 


1  REM  ******************************** 

2  REM  *  * 

3  REM  *  FENSTERROSE  * 

4  REM  *  VERSION  M.  ALLGEM.  BEFEHLEN  * 

5  REM  *  * 

6  REM  *  HEIMO  PONNATH  HAMBURG  1985  * 

7  REM  *  * 

8  REM  ******************************** 

9  REM  ****  EINGABEN  ***** 

10  POKE  53280, 0:POKE  53281, 0:POKE  646,5:PR 
INT  CHR*(147) 

15  INPUT "ANZAHL  STUETZPUNKTE" ; N 
20  INPUT "RADIUS" ; R: INPUT "TEXTORT  XT,YT";XT 
,  YT  ■ 

25  INIT 
35  START 
45  MITTE 

60  D=2*£/N:DIM  X(N),Y(N> 

65  KRE IS(0,0,R,R) 

80  GOSUB  200 
90  Ai=" FENSTERROSE" 

100  TEXT (A$,XT,YT) 

105  SHOW 

120  POKE  198,0: WAIT  198,1 
125  N  OR  MAL 
135  GRESET 
160  END 

200  REM  ******  UP  ZEICHNEN  ********** 

210  FOR  1=1  TO  N: T=T+D: X ( I ) =R*COS (T) : Y (I )= 
R*SIN (T) : NEXT  I 
220  S=N— 1 

230  FOR  1=1  TO  S: Z=I+1 

240  FOR  J=Z  TO  N 

245  LINIE(X(I) ,Y(I) ,X(J) ,Y(J) ) 

250  NEXT  J : NEXT  I : RETURN 

© 

Listing  4.  Fensterrose.  Ein  gotisches  Rundfenster, 

programmiert  mit  allgemeinen  Grafik-Befehlen 


Ausgabe  11 /November  1985 


ffeJ-online.de 

64er-online.net 


Grafikwelt 


C  64 


1  REM  ******************************** 

<05 1  > 

2  REM  * 

* 

<  05 1  > 

3  REM  *  FENSTERROSE 

* 

<0B7> 

4  REM  *  VERSION  FUER  H  I  R  E  S  3 

* 

<248> 

5  REM  * 

* 

<054> 

6  REM  *  HEIMO  PONNATH  HAMBURG  1985 

* 

<131  > 

7  REM  * 

* 

<  056  > 

8  REM  ******************************** 

<058> 

9  REM  ****  EINGABEN  ***** 

<  1 62  > 

10  POKE  53280,0: POKE  5328 1,0: POKE  646, 

5:  PR 

INT  CHR$ ( 147) 

<  124.- 

15  INPUT-ANZAHL  STUETZPUNKTE" ; N 

<  068  > 

20  INPUT"RADIUS";R: INPUT-TEXTORT  XT 

YT 

;  xt 

,yt 

<  1 30  ,> 

25  REM  ****  INIT  ***** 

<  197> 

30  SYS  37498: HFL, 6, 12 

<  054  > 

35  REM  ****  START  ***** 

<  06  1  > 

40  TRS, 0,320, 0,200 

<  25 1  > 

45  REM  ****  MITTE  ***** 

<  239  > 

50  TRS, -160, 160,-100, 100 

<  064  > 

55  REM******* 

<  202  > 

60  D=2*£/N: DIM  X(N),Y(N) 

<227  > 

65  REM  ****  KREIS  ***** 

<  049  > 

70  TKR,0,0,R,R,2*i 

122> 

75  REM******* 

<222> 

80  GOSUB  200 

<  032  > 

90  A$= "FENSTERROSE" 

<  005  > 

95  REM  ****  TEXT  ***** 

<  166> 

100  TEX,A*,YT,XT 

<234> 

105  REM  ****  SHOW  (HIER  UNNOETIG)  ***** 

<  145> 

115  REM****** 

<  1 7  8  > 

120  POKE  198,0: WAIT  198,1 

<092> 

125  REM  ****  NORMAL  ***** 

<252  > 

130  HOF 

<  1 29  > 

135  REM  ****  GRESET  ***** 

<036> 

150  LOE: AUS 

<  04  1  > 

160  END 

<  162> 

200  REM  ******  UP  ZEICHNEN  ********** 

<054  > 

210  FÜR  1=1  TO  N: T=T+D: X ( I ) =R*COS (T) 

:  Y  ( I )  = 

R*SIN  CT) : NEXT  I 

<  127  > 

220  S=N— 1 

<  099  > 

230  FOR  1=1  TO  S:Z=I+1 

<  043> 

240  FOR  J=Z  TO  N 

<014  > 

242  REM  ****  LINIE  ***** 

<252> 

245  TLN ,X(I) ,Y(I) ,X(J) ,Y(J) 

<186> 

247  REM******** 

<050> 

250  NEXT  J : NEXT  I : RETURN 

<070> 

_ _  Listing  5.  Hires-Fensterrose. 

***"  Fensterrose,  übersetzt  in  die  HiRes-3-Syntax 

1  REM  ******************************** 

<05 1  > 

2  REM  * 

<05 1  > 

3  REM  *  FENSTERROSE 

* 

<087> 

4  REM  *  VERSION  FUER  PLOTTER  1520 

* 

<  131  > 

5  REM  * 

* 

<054  > 

6  REM  *  HEIMO  PONNATH  HAMBURG  1985 

* 

<  131  > 

7  REM  * 

* 

<056> 

8  REM  ******************************** 

<05B> 

9  REM  ****  EINGABEN  ***** 

<  162> 

10  POKE  53280,0: POKE  5328 1,0: POKE  646,5: PR 

INT  CHRf-  ( 147) 

<  124> 

15  INPUT-ANZAHL  STUETZPUNKTE" ; N 

<068> 

20  INPUT-RADIUS" ;R: INPUT-TEXTORT  XT, 

< 

-j 

;XT 

,  YT 

<  130> 

25  REM  ****  INIT  ***** 

<  197> 

30  OPEN  1,6,1: OPEN  2 , 6 , 2: PRINT#2 , 1 : CLOSE  2 

<251  > 

35  REM  ****  START  ***** 

<06 1  > 

40  PRINT #1 , "M" , 0,-200: PRINT#1 , " I " 

<251  > 

45  REM  ****  MITTE  ***** 

<239> 

50  PR I NT# 1 R ", 240 , 0 : PR I NT# 1 ," I" 

<200> 

55  REM******* 

<202> 

60  D=2*t/N:DIM  X(N),Y(N) 

<227> 

65  REM  ****  KREIS  ***** 

<049> 

70  M=50:DD=360*t/ (M*180) :DIM  T(M):T<0>= 

2*£ 

<  121  > 

72  FOR  1  =  1  TO  M: T ( I ) =T ( I  — 1 ) +DD:  PRINT # 1 , 

"R" 

, R*COS (T ( 1-1 ) ) ,R*SIN(T(I-1) ) 

<236> 

74  PRINT# 1 ,"J" , R*COS (T ( I ) ) ,R*SIN(T(I) )  : 

NEX 

T  I 

<  173> 

75  REM******* 

<222> 

80  GOSUB  200 

<032> 

90  A$=" FENSTERROSE" 

<005> 

95  REM  ****  TEXT  ***** 

<  166> 

Listinjg  6.  Plotter-Fensterrose. 

Die  Übersetzung  in  die  Plotter-Sprache 

100 

OPEN  4,6: PRINT#1 , "R" ,XT,YT :PRINT#4,A$ : 
CLOSE  4: PRINT# 1 , "M" ,240,— YT : PRINT#1 , " I 

•• 

<067  > 

105 

REM  ****  SHOW  ***** 

<044> 

110 

PRINT#1,"R“, 0,-200 

<210> 

115 

REM****** 

<178> 

120 

POKE  198 ,0: WAIT  198,1 

<092> 

125 

REM  ****  NORMAL  ***** 

<252> 

130 

OPEN  3,6,3: PRINT#3 ,0: OPEN  4,6:PRINT#4: 
PRINT#4, "  N" , " C3SPACE >R" , " <4SPACE>XT" , 
" C4SPACEJYT" 

<001  > 

132 

PR I NT#4 , N , R , XT , YT : PR I NT#3 , 1 : PR I NT#4 : CL 

OSE  3: CLOSE  4: CLOSE  1 

<  1 67  > 

135 

REM  ****  GRESET  ***** 

<036> 

150 

OPEN  7,6,7: PRINT#7: CLOSE  7 

<003> 

160 

END 

<  162> 

200 

REM  ******  UP  ZEICHNEN  ********** 

<054> 

210 

FOR  1=1  TO  N:T=T+D:XCI)=R*COS(T> :Y(I)= 

R*SIN (T) : NEXT  I 

<  127> 

220 

S=N—  1 

<099> 

230 

FOR  1=1  TO  S:Z=I+1 

<043> 

240 

FOR  J=Z  TO  N 

<0 1 4  > 

242 

REM  ****  LINIE  ***** 

<  252  > 

245 

PRINT# 1,"R" ,X(I) , Y ( I ) : PRINT# 1,"J" ,X(J> 

,  Y  ( J  ) 

<  090  > 

247 

REM******** 

<050> 

250 

NEXT  J : NEXT  I: RETURN 

<070> 

©  64'er  Listing  6.  Plotter-Fensterrose  (Schluß) 

-ir 


REM  *********************************  <132> 

REM  *  *  <051 > 

REM  *  ABWEICHUNGSBALKENDIAGRAMM  *  <193> 

REM  *  MITTELS  HIRES-3  *  <078> 

REM  *  *  <054> 

REM  *  HEIMO  PÜNNATH  HAMBURG  1985  *  <131> 

REM  *  *  <056> 

REM  *  HIRES-3  MUSS  IM  SPEICHER  SEIN  *  <034> 

REM  *********************************  <140> 

2J3  REM  <072> 

REM  ++++++++  INITIALISIEREN  ++++++++  <173> 

20  REM  <  082  > 

25  POKE  52 ,112: POKE  56, 112: SYS  37498: GOTO 

65  <015> 

30  REM  <092> 

35  REM  ++++++  UP  CURSOR  SETZEN  ++++++++  <005> 

40  REM  < 102> 

45  POKE  2 11, SP: POKE  214, ZL: SYS  58640: RETUR 

N  <053> 

50  REM  < 1 12> 

55  REM  +++++  EINGABETEIL  +++++++  <189> 

60  REM  < 122> 

65  PRINT  CHRT (147) : SYS  34647:P0KE  646,14:Z 

L= 1 0 : SP=5 : GQSUB  45  <207> 

70  PR INT "BALKENDIAGRAMM  WELCHES  DEN":ZL=12 

: GOSUB  45  <090> 

75  PR INT "MITTELWERT  UND  DIE  ABWEICHUNGEN": 

ZL= 14: GOSUB  45  <254> 

80  PR INT "GRAFISCH  DARSTELLT. ": PAU, 5: PRINT 

CHR$  (147)  :  ZL=  1 0 :  SP=7  :  GOSUB  45  <0U> 

85  PR INT" WIEVIELE  WERTE  (MAX=50>  INPUT 

N  < 159> 

90  DIM  W(N) ,A(N) : PR I NT  CHR*<147)  <133> 

95  MA=0:MI=0  <113> 

100  FOR  1=1  TO  N : PR INT" WERT  NUMMER 

INPUT  W ( I ) : S=S+W ( I ) : NEXT  I  <067> 

105  REM  < 167> 

110  REM  +  BERECHNUNG  DER  ABWEICHUNGEN  +  <197> 

120  REM  < 182> 

125  M=S/N: FOR  1=1  TO  N: A ( I ) =W ( I ) -M: IF  A(I) 

>MA  THEN  MA=A ( I )  <150> 

130  IF  A(IXMI  THEN  MI=A(I)  <088> 

135  NEXT  I  <219> 

140  REM  <202> 

145  REM  ++++  BILDSCHIRMAUFTEILUNG  +++++  <006> 

150  REM  <212> 

155  0=MA+ABS (MI) : Ql=. 06*Q: Q2=. 2*Q: M1=MA+Q1 

: M2=MI— Q2  <201 > 

160  DX=INT (320/N) : TRS,— 5,319,M2,M1  <195> 

165  REM  <227 > 

170  REM  ++++++  ZEICHNEN  ++++++  <241 > 

175  REM  <237> 

Listing  7.  Abweichungen.  Ermittelt  und  zeichnet  den  Durchschnitt 
und  die  Abweichungen  davon:  Das  Programm  Abweichungen 


152 


Ausgabe  ll/Noverabei,&85, 

64er-online.net 


Grafikwelt 


C  64 


180  HFL , 14,6: TLN 1 ,0,319,0: SYS  35256: X=0 
185  FÜR  1=1  TO  N: 1F  A ( I ) >0  THEN: TRE , X , A ( I ) 
, X+DX ,0: GOTO  195 
190  TBK ,X,0,X+DX,A(I) 

195  X=X*DX : NEXT  I 

200  ZL=0 : SP=5 : GOSUB  45: PRINT"ABWE ICHUNGS-B 
ALKENDIAGRAMM" 

205  ZL=21:SP=1: GOSUB  45: PRINT"MITTELWERT  = 
"M: ZL=22: GOSUB  45 
210  PRINT" ♦  MAX  "MA,"-  MAX  "MI 
215  ZL=23: GOSUB  45:PRINT"E  =  ENDE" , "N  =  NE 
U" , "D  =  DRUCKEN" 

220  REM 

225  REM  +++++  MENUE-AUSWERTUNG  ++++++++ 

230  REM 

235  GET  A$ :  IF  A*<>"E"AND  A*<  >"N"AND  AJO"D 
"THEN  235 
240  REM 

245  REM  -  OPTION  NEUE  WERTE  - 

250  REM 

255  IF  A*="N"THEN  SYS  35377: HOF:RUN 
260  REM 

265  REM  -  OPTION  DRUCKEN  - 

270  REM 

275  IF  A*="D"THEN  GOSUB  3 1 0: HOF: PRINT  CHR* 
<147) : GOTO  215 
280  REM 

285  REM  -  OPTION  PROGRAMMENDE  - 

290  REM 

295  SYS  35377: HOF: END 
300  REM 

305  REM - OPTION  DRUCKEN  UP - 

310  REM 

315  SYS  35377: OPEN  1,4, 1 0: PRINT#1 : CLQSE  1: 
OPEN  1,4 

320  PRINT#1 , "ABWEICHUNGS-BALKENDIAGRAMM" : S 
YS  34865 

325  PRINT#1 , "GROESSTE  UEBERSCHREITUNG  =  " M 
A 

330  PRINTttl , "GRQESSTE  UNTERSCHREI TUNG  =  "M 
I 

335  PRINT#1 , "MITTELWERT  =  "M: PR INT# 1 : CLOSE 
1 : RETURN 
340  REM 

345  REM  *******  DAS  WARS  !  ********* 

©  G4'er  Listing  7.  Abweichungen  (Schluß) 


1  REM  ********************************* 

2  REM  *  * 

3  REM  *  PLOTTEN  BELIEBIGER  FUNKTIONEN  * 

4  REM  *  MIT  DEM  PRINTER/PLOTTER  1520  * 

5  REM  *  * 

6  REM  *  HEIMO  PONNATH  HAMBURG  1985  * 

7  REM  *  * 

8  REM  ********************************* 

9  GOTO  25 

10  REM  ++++++++  UP  CURSOR  SETZEN  ++++++ 

15  POKE  211 ,SP: POKE  214, Z: SYS  58640: RETURN 
20  REM  ++++++++  HAUPTPROGRAMM  TEIL  1  ++ 

25  PRINT  CHR* (147) :Z=10:SP=1: GOSUB  15 
30  PRINT" IM  PROGRAMM  BEFINDET  SICH  DIE  FUN 
KT ION: " 

35  K=l: GOSUB  90: K=0: PRINT: PRINT"Y=  "F*:Z=1 
8: GOSUB  15 

40  PRINT  CHR* (18) " A"CHR* < 146) "LTE  ODER  "CH 
R*<18) "N"CHR*( 146) "EUE  FUNKTION  ?" 

45  GET  AS: IF  A*< >" A" AND  A*<>"N"THEN  45 
50  IF  AS- "A" THEN  85 

55  REM  ++  NEUE  FUNKTION  INS  PROGRAMM  ++ 

60  Z=20:SP=3: GOSUB  15: PRINT"NEUE  FUNKTION: 

": INPUT "Y=  "; FS: POKE  646,6 
65  PRINT  CHR* ( 147) CHR* (17) CHR* (17) "90F*="C 
HR*(34)F*CHR*(34) 

70  PR I NT "95DEFFNA <  X ) =  "F*: PRINT"RUN85" : PRIN 
T  CHR*  < 19) ; 

75  POKE  631 , 13: POKE  632,13:P0KE  633,13:P0K 
E  198,3: END 

80  REM  ++++++++  HAUPTPROGRAMM  TEIL  2  ++ 

85  PRINT  CHR* (147) : POKE  646,14 
90  F*="XT2/2" 

95  DEF  FN  A(X)=XT2/2 
100  IF  K=1  THEN  RETURN 

105  REM  ++++  VARIABLE  UND  FUNKTIONEN  ++ 

110  DEF  FN  T ( X ) =INT (479/ ( XÜ-XU) *X ) 

1 15  X=0: Z=0: SP=0: XU=-1 : X0=5: YU=-1 : Y0=5: YM= 


<  153> 

<000> 

<  02B  > 

<052> 

<238> 

<  177> 
<023> 

<  172> 
<026> 
<100> 

<036> 

<  169> 
<046> 

<  135> 
<056> 

<  080  > 
<068> 

<  1 4 1  > 
<078> 

<099> 

<0B8> 

<  1 16> 

<  098 
<073> 

<  1 08  > 
<147  > 
<118-* 


6: XA=XU: XE=XO 

120  X 1=0: X2=0: Y 1=0: Y2=0: D= 150: DY=. 1: I=10:M 
=10: DX=. 2 
125  A*="" 

130  REM  +++  PLOTTERKANAELE  OEFFNEN  ++++ 

135  OPEN  1,6,1: OPEN  4,6: OPEN  2,6,2: OPEN  3, 
6,3:  F‘R  I  NT  #2 , 3 

140  REM  +++++  PARAMETEREINGABEN  +++♦+++ 

145  Z=0:SP=0: GOSUB  15: PRINT"FUNKTION  Y="F* 
150  Z=2: GOSUB  15: PRINT" (FALLS  SIE  MIT  UNST 
ETIGKEI TEN  RECHNEN," 

155  PR INT "DANN  VERMEIDEN  SIE  ES,  DIE  POLST 
ELLEN" 

160  PR INT "ALS  PARAMETER  ( XU , XO , EVTL. XA  ODE 
R  XE)  " 

165  PRINT"ZU  VERWENDEN.  D  SOLLTE  DANN  KLEI 
N  SEIN. " 

170  Z=7:SP=10: GOSUB  15:PRINT"XU  UND  XO  =" 
175  Z= 1 4 : SP= 10: GOSUB  15:PRINT"YU  UND  YO  =" 
180  Z=16:SP=0: GOSUB  15: PRINT"SPEZ .  ZEICHEN 
BEREICH  GEWUENSCHT (J/N)?" 

182  Z=22:SP=10: GOSUB  15: PR INT "SCHRITTWEITE 
(D=CA. 150) " 

185  Z=7:SP=25: GOSUB  15: INPUT  XU,XO 
190  YM=INT (998*(X0— XU) / 479 ): Z=9: SP=3: GOSUB 
15: PRINT"YU  MINIMUM  =  " ,-YM/2 
195  Z=10:SP=3: GOSUB  15:PRINT"Y0  MAXIMUM  = 

" , YM/2: Z=1 1 : SP=0: GOSUB  15 
200  PRINT" (DIE  SUMME  AUS  £YU2  UND  YO  DARF 
"YM: PRINT"  NICHT  UEBERSCHRE I  TEN ! ) 

205  Z=14:  SF'=25:  GOSUB  15:  INPUT  YU,YO:IF(YO- 
YU) >YM  THEN  205 

210  Z=16:SP=36: GOSUB  15: INPUT  A*:IF  A*<>"J 
"AND  A*<>"N"THEN  210 


<•033-* 

<  002  > 

<058> 

<222> 

<122> 
<  148> 
<219> 


<  132> 
<051  > 
<097> 

<  1 18> 
<054> 

<  131  > 
<056> 

<  139> 
<019> 
<077> 
<027> 
<228> 

<  1 4 1  > 

<  130> 

<042> 

<212> 
<207> 
<036> 
<021  > 

<028> 

<  158> 
<25 1  > 

<033> 

<048> 

<213> 

<  177> 

<  1 18> 

<  109> 
<240> 

<  192> 


215  IF  A*="N"THEN  XA=XU: XE=XO: GOTO  232 
220  Z=18:SF=3: GOSUB  15:FRINT"(XA  >  XU  UND 
XE  <  XO  ! " 

225  Z=20:  SF‘=  10:  GOSUB  15:PRINT"XA  UND  XE  =“ 
:  SF'=25:  GOSUB  15:  INPUT  XA,XE 
230  IF  XA< XU  OR  XE>XO  THEN  225 
232  Z =22 : SF-32: GOSUB  15: INPUT  D 
235  REM  +++  PLOTTEN  ANFANGSWERTE  ++++++ 
240  P‘  '  IT#1,"H":PRINT#1,"M",FN  T(-XU),-FN 
T (YO) : PRINT#1 , " I " 

245  X 1 =FN  T (XU)+1: X2=FN  T (XO) -1 : Y1=FN  T(YO 
) -1 : Y2=FN  T ( YU) + 1 

250  REM  +++  PLOTTEN  KOORDINATENSYSTEM  + 

255  PRINT41 , "R" , 0 , Y 1 : PRINT# 1 , " J " , 0 , Y2: PRIN 
T#  1  , "R" ,X2,0: PRINT# 1 , "J" ,X1 ,0 
260  REM  +++  PLOTTEN  SKALIERUNG  ++++++++ 

265  DY= (XO— XU) /47 

270  FOR  I=XU+1  TO  XO-1 : M=INT ( I ) : PRINT#1 , "R 
"  , FN  T  (M)  , FN  T  (0) 

275  PR I NT # 1 , " J " , FN  T (M) ,FN  T (—DY) 

280  NEXT  I 

285  FOR  I=YU+1  TO  YO- 1 : M= INT ( I ): PRINT# 1 , "R 
"  , FN  T  (0)  , FN  T  (M) 

290  PR I NT # 1 , " J " , FN  T (DY) ,FN  T (M) 

295  NEXT  I : PRINT#2,0 

300  REM  ***  PLOTTEN  FUNKTION  ■*-+++++++++ 

305  IF  FN  T (FN  A(XA))>Y1  THEN  PRINT#1,"R", 
FN  T (XA) , Y1 : GOTO  320 

310  IF  FN  T  (FN  A(XA)XY2  THEN  PRINT#1,"R", 
FN  T (XA) ,Y2:G0TQ  320 
315  PRINT#1 , "R" ,FN  T(XA),FN  T (FN  A(XA)) 

320  FOR  X=XA  TO  XE  STEP ( XO-XU) /D 
325  IF  FN  T (FN  A(X))>Y1  THEN  PRINT#1 , ”R" ,F 
N  T  (  X )  , Y1 : GOTO  340 

330  IF  FN  T  (FN  A(X)KY2  THEN  PRINT#1  ,  "R"  ,F 
N  T ( X ) , Y2: GOTO  340 

335  PRINT#1 ,"J" ,FN  T(X),FN  T (FN  A(X>> 

340  NEXT  X 

345  IF ( XO-XU) >25  THEN  405 
350  REM  +++  PLOTTEN  EINHEITENZAHLEN  +++ 

355  PRINT#2,3: PRINT#3, 0: DX= ( XO-XU) /28 
360  FOR  I=XU+1  TO  XO- 1 : M= INT ( I ) : PRINT#1 , "M 
" ,FN  T (-XU)  ,— FN  T ( YO ) : PR I NT # 1 , " I " 

365  PRINT#1 , "R" ,FN  T (M) ,FN  T(-DX):IF  M=0  T 
HEN  375 
370  PRINT#4 , M; 

375  NEXT  I 

380  FOR  I =YU+ 1  TO  YO- 1 : M= INT ( I ) : PR I NT# 1 , "M 
" ,FN  T ( — XU)  , — FN  T ( YO ) : PR I NT # 1 , " I " 

385  PRINT#1 , "R" ,FN  T(DX),FN  T(M):IF  M=0  TH 

Listing  8.  Funktionenplot. 

Erspart  die  Wertetabelle:  Das  Programm  Funktionenplot 


<  143> 

<228> 

<  154> 

<  162> 

<252> 

<081  > 

<231  > 

<  164> 
<041  > 

<  1 45  > 

<248> 

<255> 

<032> 

<228> 

<065> 

<233> 

<005> 

<242> 

<239> 

<255> 

<016> 

<  149> 

<  128> 

<  151  > 
<046> 
<040> 

<247> 

<214> 

<  129> 
<093> 

<  046> 

<  144> 

<249> 

<  022  > 
<  182> 

<110> 

<  1 15> 

<  121  > 
<005> 
<025> 

<240> 

<1B3> 

<077> 

<  174> 

<004> 

<  169> 
<036> 
<034> 
<237> 
<243> 
<033> 

<  109  > 

<106> 

<  176> 
<205> 

<  165> 
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EN  395 

<011> 

390 

F'R  INT  44  ,M; 

<  196> 

395 

NEXT  I 

<225> 

400 

REM  +++  PLOTTEN  FUNKTIONSNAME  +++++ 

<228> 

405 

PRINT#2,2 

<  146> 

410 

PRINTttl , "M" ,FN  T (—XU) ,— FN  T(YO):PRINT# 

1 , " I ” : PR  I NT 4 1 , "R" , X 1 , Y2 

<  209> 

415 

PRINT41 , "J" , X2,Y2: PRINT# 1 , " J" , X2, Y1 :  PR 

INT#1 , "J" ,X1 , Y 1 : PRINT  # 1 , "J" ,X1 ,Y2 

<220> 

420 

F'R  I  NT #4 :  PR  I  NT #4 :  F'R  I  NT #2,1:  PR  I  NT#3 , 1 :  PR 

INT#4  ,  "  Y  =  "Ff:  PRINT  #4 :  F'R  INT  #2 , 0 

<  058  > 

425 

REM  +++  PLOTTERKANAELE  SCHLIESSEN  + 

<  166> 

430 

CLOSE  1: CLOSE  2: CLOSE  3: CLOSE  4 

<08 1  > 

435 

END 

<  183> 

©  ß4'er  Listing  8.  Funktionenplot  (Schluß) 

1  REM  ********************************* 

2  REM  *  * 

3  REM  *  3D-GRAFIK  MITTELS  HIRES-3  * 

4  REM  *  * 

5  REM  *  HEIMO  F'ONNATH  HAMBURG  1985  * 

6  REM  *  * 

7  REM  *  HIRES-3  MUSS  IM  SPEICHER  SEIN  * 

8  REM  ********************************* 

9  REM 

10  REM  ++  INITIALISIEREN  DER  GRAFIK  ++ 

15  REM 

20  POKE  52, 112: POKE  56,112:SYS  37498:GGTÜ 
60 

25  REM 

30  REM  ++  UP  CURSOR  SETZEN  +++++*++++ 

35  REM 

40  POKE  211, SP: POKE  21 4, ZL: SYS  58640: RETUR 
IM 

45  REM 

50  REM  +++  ElfMGABE  DER  3D— FUNKT  I ON  ++-•-+ 

55  REM 

60  PRINT  CHRf C 147) : SYS  34647: POKE  646, 14: Z 
L=5: SP=5: GOSUB  40 
65  PR INT "FUNKT  ION  IM  PROGRAMM:" 

70  K=l: GOSUB  180: K=0 
75  PRINT : PRINT  TAB (3) "Y="Ff: PRINT 
80  PRINT  TAB(5>CHRf (18) "A"CHRf (146) "LTE  OD 
ER  " CHRf ( 1 8 ) " N " CHRf ( 146) " EUE  FUNKTION? 
85  GET  Af:IF  AfO"A"AND  Af<>"N"THEN  85 
90  IF  Af="A"THEN  140 

95  PRINT  CHRf  ( 147)  :SP=3:ZL=12:  GOSUB  40:  INP 
UT " Y= " ; Ff : POKE  646,6 

100  PRINT  CHRf (147) CHRf (17) CHRf (17) " 1S0FT = 
" CHRf  ( 34 )  Ff CHRf  ( 34 ) 

105  PRINT " 190DEFFNA ( X ) ="Ff 

110  PRINT"RUN140" : PRINT  CHRf (19); 

115  POKE  631 ,13: POKE  632 , 13: POKE  633 , 13: PO 
KE  198,3: END 
120  REM 

125  REM  +++  NEUBEGINN  DES  PRQGRAMMES  ++ 

130  REM  +++  FALLS  NEUE  FUNKTION  ++ 

135  REM 

140  PRINT  CHRf (147) : POKE  646,14 
145  REM 

150  REM  +++  FUNKTIONEN  UND  VARIABLE  +++ 

155  REM 

160  X=0: Z=0: SP=0: ZL=0: XU=0: XO=0: YU=0: YO=0: 

Z3=0: Z4=0: Z5=0: Z6=0: ZU=0: ZO=0 
165  Z 1=0: Z2=0:F1=1 : F2=6: A= 1 : XA=0: XE=0: ZA=0 
: ZE=0: DZ=1 : XT=0: XH=0: YT=0: YH=0: ZZ=1 
170  REM 
175  Af="" 

180  Ff="SIN(X)*SIN(Z> " 

185  REM 

190  DEF  FN  A ( X ) =SIN ( X ) *SIN (Z ) 

195  DEF  FN  Z ( Z ) =Z/ (2*S0R (2) ) 

200  IF  K= 1  THEN  RETURN 
205  REM 

210  REM  ++  EINGABE  KOORDINATENSYSTEM  ++ 

215  REM 

220  SP=1:ZL=3: GOSUB  40 

225  PRINT  CHRf (18) "UNSER  SYSTEM I4SPACEJ : "C 
HRf (146) :SP=7:ZL=5: GOSUB  40 
230  INF'UT  "  XU  ,  XO="  ;  XU  ,  XO:  ZL=6:  GOSUB  40:  INPU 
T" YU , YQ=" ; YU , YO: SP=9: ZL=8:G0SUB  40 
235  Z3=2*X0*SQR (2) : Z4=2*Y0*SQR (2) : IF  Z3<Z4 
THEN  PRINT" ZO  MAX IMAL=" Z3: GOTO  245 
240  PR INT "ZG  MAX IMAL=" Z4 


<  132> 
<051  > 

<  161  > 

<  053> 

<  130> 

<  055  > 
<033> 

<  1 39  > 
<071  > 

<  036  > 
<077> 

<  226  > 

<  087  > 

<  1 80  > 

<  097  > 

<  043  > 
<107> 
<351  > 

<  1 17> 


<  196> 

6^^0B<©nLlp 

<  1 04> 
<010> 


<  207  > 
<249> 
<043> 

<  255  > 

<  08 1  > 

<  034  > 

<  1  18> 

<073> 
<  182> 
<021  > 
<006> 

<  197  > 
<012> 

<  207  > 

<  150> 

<  2 1 7  > 

<163> 

<  129> 
<232> 
<204> 
<051  > 
<247> 

<  1 13> 
<029> 
<209> 
<01 1  > 

<  144> 
<021  > 

<  1 1 1  > 

<085> 

<  176> 

<  121  > 
<  1 0 1  > 


245  SP=9: ZL=10: GOSUB  40  <064 > 

250  Z5=2*XU*SQR(2)  :  Z6=2*YU*SL'R  (2)  :  IF  Z5>Z6 

THEN  PR INT "ZU  MINIMAL=" Z5: GOTO  260  <094 > 

255  PRINT "ZU  MINIMAL="Z6  <049> 

260  SF-7: ZL= 12: GOSUB  40: 1 NPUT " ZU , Z0=" ; ZU , Z 

0: Z 1=FN  Z ( ZO) : Z2=FN  Z(ZU)  <051 > 

265  IF  Z1>X0  OR  Z1>Y0  THEN  235  <227 > 

270  IF  Z2< XU  OR  Z2<YU  THEN  235  <016> 

275  REM  <083 > 

280  REM  +++  EINGABE  ZEICHENPARAMETER  ++  <165> 

285  REM  <093> 

290  ZL=14:SP=1: GOSUB  40: PRINT  CHRf (18) "UNS 

ERE  ZEICHNUNG: "CHRf (146)  <115> 

295  ZL=16:SP=3: GOSUB  40: INPUT" ZEICHEN-  UND 

H I NTERGRUNDF ARBE= " ; F 1 , F2  <047 > 

300  ZL=18:SP=7: GOSUB  40: INPUT "SCHRITTWEITE 

VON  Z=";A  ,  < 1 15> 

305  ZL=20: GOSUB  40: INPUT"X-BEREICH  XA,XE=" 

; XA, XE  <  056  > 

310  ZL=21: GOSUB  40: INPUT" Z-BERE ICH  ZA,ZE=" 

; ZA, ZE  <015> 

315  REM  <123> 

320  REM  +++  ZEICHNEN  +++  <049> 

325  REM  < 133> 

330  DZ=A/2: XT=XU: XH=XO: YT=YU: YH=YO  <015> 

335  HFL, F 1 ,F2: TRS , XU , XQ , YU , YO  <232> 

340  REM  < 1 48  > 

345  REM - KOORDINATENKREUZ -  <141> 

350  REM  < 158> 

355  TLN , XU , 0 , XO , 0 : TLN , 0 , YU , 0 , YO: TLN , Z2 , Z2 , 

ZI, ZI  <01 1> 

360  REM  < 16B> 

365  REM -  Z— SCHLEIFE  -  <208 > 

370  REM  < 1 78 > 

375  FOR  Z=ZA  TO  ZE  STEP  DZ:ZZ=FN  Z(DZ):XT= 

XT-ZZ: XH=XH-ZZ: YT=YT— ZZ: YH=YH-ZZ  <160> 

380  TRS , XT , XH , YT , YH  <215> 

385  FUNKT, A,XA, XE  <224 > 

390  NEXT  Z  <100> 

395  TEX, "Y="+Ff,0,3  <191> 

400  REM  <208> 

405  REM - ZEICHNUNG  FERTIG -  <071  > 

P  REM  <  2 1 8  > 

415  GET  Af:IF  Af  =" "THEN  415  <068> 

420  HOF  < 165> 

425  REM  <233> 

430  REM  +++++  MENUE  ++++++  <188> 

435  REM  < 243 > 

440  ZL=23:SP=1: GOSUB  40  <158> 

445  PRINT  CHRf (18) "E"CHRf ( 146) "NDE C4SPACE> 

"CHRf (18) "G"CHRf (146) "RAFIK"  <103> 

450  ZL=23:SP=18: GOSUB  40  <166> 

455  PRINT  CHRf  (18)  " N " CHRf  (146)  " EU -C5SPACE  J " 

CHRf (18) "D"CHRf (146) "RUCKEN"  <229> 

460  GET  Af :  IF  Af <  >"E" AND  Af <  >"G"AND  Af <  >"N 

"AND  Af  <  >"D"THEN  460  <043> 

465  REM  <017> 

470  REM - OPTION  GRAFIK -  < 083 > 

475  REM  <027> 

480  IF  Af ="G"THEN: HAN: POKE  198,0:WAIT  198, 

1: HOF: GOTO  460  <109> 

485  REM  <037> 

490  REM - OPTION  DRUCKEN -  <033> 

495  REM  <047> 

500  IF  At= "D" THEN: HAN: OPEN  1 ,4 , 10: PRINTttl : 

CLOSE  1 : SYS  34865 : HUf  <069 > 

505  IE  Af  ="  D"  I  HkN  UPEN  1 , 4  :  PK  1  NT»  1  :  HK  IN  I#  1 

,"XU=,,XU,"XU="XO,"YU  "Yll,  "YO="YO  <009> 

510  IF  A*="D"  THEN  PRINTttl  ,  " /II  "ZU,  "ZQ="ZQ, 

" A=" A  <  239  > 

515  IF  A*="D"  I  HLN  I  K  I  N  I  III  ,  "  X  A  " XA,  "  XL-  "  XE  , 

"  ZA="  ZA ,  "  ZE="  ZE:  F'R  INT #  1 :  CLOSE  1 :  GOTO  4 
60  <  059  > 

520  REM  <074> 

525  REM  -  OPTION  NEUE  ZEICHNUNG  -  <190> 

530  REM  <084 > 

535  IF  Af="N"THEN  RUN  <053> 

540  REM  <094> 

545  REM -  OPTION  PROGRAMMENDE  -  <127> 

550  REM  < 104> 

555  END  <049> 

560  REM  *********  DAS  WARS  !  **********  <202> 

©  64'er 

Listing  9.  3D-Programm. 

Schnell  geworden:  Das  3D-Programm  aus  der  Grafik-Serie  mit 
HiRes-3. 
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Dem  Klang  auf  der 
Spur  (Teil  10) 

Als  krönender  Abschluß  dieses  Kurses 
wird  das  Programm  Sound-Editor  zu 
einem  kompletten  Synthesizer-Pro¬ 
gramm  ergänzt. 


In  der  heutigen  und  letzten 
Folge  des  Synthesizer-Projekts 
soll  der  in  Teil  9  beschriebene 
Sequenzer  in  den  Sound-Editor 
integriert  werden.  Zum  Sequen¬ 
zer  gibt  es  im  Gesamtprogramm 
ein  eigenes  Unter  me  nü.  von 
dem  aus  er  gestartet  und  ge¬ 
stoppt  werden  kann.  In  diesem 
Untermenü  kann  man  auch  das 
Spieltempo  und  einige  weitere 
Parameter  interaktiv  einstellen. 
Damit  liegt  jetzt  ein  komplettes 
Synthesizer-Programm  vor,  das 
von  den  vielen  klanglichen 
Möglichkeiten  her  die  kommer¬ 
ziell  angebotenen  Synthesizer- 
Programme  für  den  C  64  über¬ 
treffen  dürfte.  Für  die  grafische 
Gestaltung  gibt  es  natürlich 
schönere  und  aufwendigere 
Konzepte,  diese  waren  aber 
auch  nicht  das  Thema  dieses 
Kurses. 

Um  zu  dem  erwähnten  Kom¬ 
plettprogramm  zu  gelangen,  be¬ 
nötigt  man  diesmal  mehrere  Tei¬ 
le  aus  verschiedenen  Abschnit¬ 
ten  des  Kurses: 


MODULATOR  (Teil  4) 

SOUND  EDITOR  (Teü  6) 

SEQUENCER.OB]  (Teü  8) 

REM  TEXT  KILLER  (TeillO 

/Listing  1) 

SOUND.ED.ZUSATZ  (TeülO 

/Listing  2) 

SEQ.ERG.OBJ  (Teü  10 


/Listing  3) 

Zunächst  muß  das  Programm 
»Sound-Editor«  erweitert  wer¬ 
den.  Da  es  den  zur  Verfügung 
stehenden  Speicher  ($0801  — 
$8FFF)  fast  vollständig  belegt, 
muß  es  erst  einmal  verkürzt  wer¬ 
den.  Dies  ist  durch  Entfernen 
der  vielen  Kommentartexte 
auch  leicht  möglich.  Wer  schon 
beim  Eintippen  des  Programms 
die  Kommentartexte  weggelas¬ 
sen  hat,  spart  sich  natürlich  jetzt 
diese  Arbeit. 

Zum  Entfernen  von  REM-Zei- 
len  gibt  es  zwar  gute  und  schnel¬ 
le  Tools,  diese  sind  aber  für  den 
Sound-Editor  leider  nicht  geeig¬ 
net,  da  die  REM-Zeüen  auch  als 
Sprungziele  auftreten.  Dabei 
werden  die  Zeilennummern  der 
Sprungziele  meistens  aus  einer 
Tabelle  entnommen. 


Der  »REM-Text-Killer«  aus  Li¬ 
sting  1  entfernt  lediglich  Kom¬ 
mentartexte  und  läßt  dabei  die 
Zeilennummern  mit  leeren 
REM-Anweisungen  stehen.  Das 
kurze  Programm  muß  zum 
Sound-Editor  eingetippt  wer¬ 
den.  Zeile  0  des  Sourid-Ediloxs 
muß  gelöscht  werden.  Anschlie¬ 
ßend  gibt  man  POKE  253,1: 
POKE  254,8  (RETURN)  im  Di- 
rektmodus  ein  und  startet  den 
REM-Text-Küler  mit  RUN.  Dann 
wird  der  REM-Text-Killer  wieder 
gelöscht  und  Zeile  0  wieder  ein- 
gegeber.. 

Nun  kann  Listing  2  (Sound,  ed. 
Erg.)  eingegeben  werden.  Li¬ 
sting  2  enthält  sowohl  Zeilen,  die 
im  alten  Sound  Editor  geändert 
werden  müssen,  als  auch  neu 
hinzukommende  Programmtei¬ 
le,  »Sound.  Ed.  Erg.«  ist  für  sich 
allein  aber  kein  lauffähiges  Pro¬ 
gramm.  Beim  Eintippen  kann 
man  natürlich  die  Kommentar¬ 
texte  gleich  weglassen.  Das  ent¬ 
stehende  Komplettprogramm 
sollte  man  dann  sofort  auf  Disk 
speichern.  Es  kann  getestet  wer¬ 
den,  wenn  alle  Maschinenpro¬ 
gramme  und  ein  Musikdatensatz 
zur  Verfügung  stehen. 

An  Maschinenprogrammen 
werden  nachgeladen: 
MODULATOR 
SEQUENCER.OBJ 
SEQ.ERG.OBJ 

Bei  dem  letzten  Programm 
handelt  es  sich  um  eine  Ergän¬ 
zung  zum  Sequenzer  aus  Teil  9. 
Diese  Ergänzung,  die  mit  dem 
MSE  eingegeben  werden  muß 
(Listing  3),  ist  für  den  Betrieb  zu¬ 
sammen  mit  dem  Sound-Editor 
und  mit  »Modulator«  erforder¬ 
lich.  Die  technischen  Einzelhei¬ 
ten  wurden  bereits  in  Teil  9  be¬ 
handelt  und  sollen  hier  nicht 
mehr  besprochen  werden. 

Um  das  bis  jetzt  aufgebaute 
System  von  Programmen  zu  te¬ 
sten,  kann  man  den  kleinen  Mu¬ 
sikdatensatz  »Test.Song«  (Tonlei¬ 
ter  und  Kadenz)  aus  MSE-Listing 
4  verwenden. 

Bedienung  des  Sequenzers 

Der  erweiterte  Sound-Editor 
wird  geladen  und  gestartet. 
Nach  einer  Initialisierungszeit 
von  zirka  30  Sekunden  meldet  er 
sich  mit  dem  Hauptmenü,  von 


dem  aus  man  mit  »A«  den  Se¬ 
quenzer  erreichen  kann.  Para¬ 
meter  werden  mit  den  Cursorta¬ 
sten  angewählt  und  können  mit 
den  F-Tasten  verändert  werden. 
Solange  allerdings  kein  Song  ( = 
Musikdatensatz)  geladen  wor¬ 
den  ist,  was  in  der  Titelzeüe  an¬ 
gezeigt  wird,  kann  der  Sequen¬ 
zer  nicht  gestartet  werden. 

Im  Unter menü  Disk  (mit  »D«  zu 
erreichen)  kann  man  mit  »F2« 
den  Musikdatensatz  »Test.Song« 
laden  und  gelangt  dann  automa¬ 
tisch  wieder  in  das  Sequenzer- 
Untermenü.  Der  Sequenzer 
kann  jetzt  mit  »F5«  gestartet  und 
mit  »F3«  wieder  angehalten  wer¬ 
den.  »Fl«  setzt  ihn  an  den  Anfang 
des  geladenen  Songs  zurück. 
TEMPO 

Über  das  Tempo-Feld  kann 
man  die  Abspielgeschwindig¬ 
keit  im  Bereich  von  40  bis  480 
bpm  (beats  per  minute)  entstel¬ 
len.  Geschwindigkeiten  über 
300  bpm  sind  allerdings  musika¬ 
lisch  kaum  noch  sinnvoll,  son¬ 
dern  eher  für  Klangexperimen¬ 
te  gedacht. 

MODUS 

Im  Song-Modus  wird  das  gan¬ 
ze  Stück  gemäß  Sequenzfolgeli¬ 
ste  gespielt.  Der  Sequenz-Mo¬ 
dus  ermöglicht  es  dagegen,  ein¬ 
zelne  Sequenzen  beliebig  oft  zu 
hören. 

SEQNR 

Im  Sequenz-Modus  erscheint 
hier  die  fJummer  der  gespielten 
Sequenz.  Damit  ist  die  aktuelle 
Position  in  der  Sequenzfolgeliste 
gemeint  und  nicht  die  Nummer 
der  Sequenz  bei  ihrer  Definition. 
Es  kann  also  unter  verschiede¬ 
nen  Nummern  die  gleiche  Se¬ 
quenz  mehrmals  zu  hören  sein. 
So  besteht  zum  Beispiel 
»Test.Song«  aus  zwei  verschiede¬ 
nen  Sequenzen,  einer  Tonleiter 
und  einer  Kadenz.  Die  Tonleiter 
wird  wiederholt  und  ist  unter 
den  Sequenznummern  1  und  2 
zu  hören.  Die  Kadenz  ist  unter 
Nummer  3  zu  finden.  Im  Song- 
Modus  hat  das  SEQNR-Feld  kei¬ 
ne  Bedeutung. 

SOFT-EG 

Die  Funktion  entspricht  der 
schon  bekannten,  mit  Shift- 
Space  erreichbaren  Kopplung 
des  Soft-EG  an  das  Tastenfeld- 
Spiel. 

SUSTAIN 

Die  Sustain-Funktion  ist  auch 
beim  Sequenzer  wirksam.  Sie 
verhindert  das  Rücksetzen  der 
GATE-Bits  der  drei  Stimmen.  Da¬ 
durch  klingen  die  Töne  ohne 
Lautstärke-Dynamik  durchge¬ 
hend  auf  dem  Sustain-Pegel. 
Während  der  Sequenzer  läuft, 
bleiben  alle  anderen  Funktio¬ 
nen  des  Sound-Editors  voll  er¬ 
halten.  Man  kann  also  an  einem 
laufenden  Musikstück  Änderun¬ 
gen  an  der  Klangeinstellung  te¬ 
sten.  Lediglich  bei  Disketten¬ 
operationen  wird  der  Sequen¬ 
zer  unterbrochen. 


Mit  dem  Sequenzgenerator 
(Listing  5)  kann  man  relativ  ein¬ 
fach  Song-Dateien  erzeugen, 
die  die  für  den  Sequenzer  erfor¬ 
derliche  Struktur  haben.  Das 
Programm  erzeugt  aus  einer  in 
DATA-Zeüen  abgelegten  Folge 
von  Noten  einen  Datensatz  mit 
der  in  Folge  9  beschriebenen 
Zeigerstruktur.  Die  Daten  wer¬ 
den  direkt  hinter  die  Soundpara¬ 
meter  ($9000  bis  $9A07)  also  ab 
S9A08  gespeichert.  Das  ge¬ 
schieht  in  der  Reihenfolge: 

—  Zeiger  auf  Sequenzfolgeliste 

—  Eine  oder  mehrere  Sequen¬ 
zen,  bestehend  aus  jeweils  1  bis 
3  Tracks 

—  Sequenzfolgeliste  (sie  enthält 
die  Startadressen  der  Sequen¬ 
zen  in  der  Reihenfolge,  in  der  sie 
abgespielt  werden  sollen). 

Es  steht  der  Speicherbereich 
bis  $BFFF,  also  auch  der  RAM- 
Bereich  $A0000  bis  $BFFF  unter 
dem  Basic-ROM  zur  Verfügung. 
Da  sich  POKE-Befehle  immer 
auf  das  RAM  beziehen,  sind  da¬ 
zu  keine  weiteren  Maßnahmen 
notwendig.  Programmteile,  die 
auf  diesen  Bereich  lesend  zu¬ 
greifen,  sorgen  selbständig  für 
das  erforderliche  Umschalten 
zwischen  RAM  und  ROM,  Auf 
Editierfunktionen  wurde  bei 
diesem  Programm  verzichtet. 
Da  die  Noten  in  DATA-Zeilen  ge¬ 
schrieben  werden,  kann  man 
diese  wie  Basic-Progxamme  mit 
dem  Bildschirm-Editor  behan¬ 
deln. 

Syntax  der  Notendaten 

Ein  Song  ist  in  einzelne  Se¬ 
quenzen  gegliedert,  welche 
wiederum  in  bis  zu  drei  Tracks 
(=  Tonspuren)  zerfallen.  Den 
Aufbau  macht  man  sich  am  be¬ 
sten  anhand  von  Listing  5,  Zeüen 
8000-8820,  klar.  Dort  steht  das 
schon  in  Teil  9  als  Hex-Dump  ab¬ 
gedruckte  Musikstück.  Jenes  ist 
allerdings  für  den  Sequenzer  in 
der  jetzigen  Form  nicht  weiter 
verwendbar,  da  es  nicht  im  Spei¬ 
cherbereich  ab  $9A08  liegt.  Die 
Zeüen  8100  bis  8130  beschreiben 
eine  Sequenz,  in  der  nur  Stimme 
3  programmiert  wird.  Der  Track 
besteht  dabei  aus  sieben  Vier¬ 
telnoten. 

Sequenzen  müssen  mit  SE¬ 
QUENZ.  (laufende  Nummer) 
eingeleitet  werden.  Die  laufen¬ 
de  Nummer  muß  im  Bereich  1 
bis  200  liegen. 

Innerhalb  einer  Sequenz  wird 
mit  TRACK,  (1,  2  oder  3)  angege¬ 
ben,  welcher  Sümme  die  nach¬ 
folgenden  Noten  zuzuordnen 
sind  Man  kann  in  einer  Sequenz 
auch  weniger  als  drei  Tracks 
programmieren.  Allen  nicht  pro¬ 
grammierten  Tracks  ordnet  das 
Generatorprogramm  einen  4  By¬ 
te  langen  Dummy-Track  zu,  der 
nur  aus  einer  Pause  besteht  und 
der  nur  einmal  im  Speicher  ste¬ 
hen  muß. 

Innerhalb  eines  Tracks  sind 
dann  folgende  Daten  zulässig:  a 

—  b  stellt  das  Verhältnis  zwi- 
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sehen  GATE-ON-  und  GATE- 
OFF-Zeit  ein.  Voreinstellung  ist 
1-1,  das  heißt,  beide  Zeiten  sind 
gleich  lang.  Bei  1-0  hat  die  GATE- 
ON-Zeit  die  maximale  Länge, 
bei  0-1  werden  die  Noten  nur 
sehr  kurz  angeschlagen.  Die 
Einstellung  hat  keinen  Einfluß  auf 
die  Gesamtlänge  der  Noten. 
Diese  wird  mit  a  /  b  eingestellt. 
Beispiele  sind: 

1/1  ganze  Note 

1/2  halbe  Note 

1/4  Viertelnote 

1/6  Vierteltriole 

3/8  punktierte  Viertelnote 

1/8  Achtelnote 

1/12  Achteltriole 

Die  Längenangabe  bezieht 
sich  auf  alle  Noten  bis  zur  näch¬ 
sten  Längenangabe. 

Als  Notennamen  werden  die 
üblichen  Bezeichnungen  C,D,E, 
F,G,A,H  verwendet.  Die  Noten¬ 
namen  können  mit » # « (zum  Bei¬ 
spiel  F#  =  Fis)  zur  Erhöhung  um 
einen  Halbton  oder  mit  »B«  (zum 
Beispiel  EB  =  Es)  zur  Erniedri¬ 
gung  um  einen  Halbton  ergänzt 
werden.  Die  Notennamen  müs¬ 
sen  mit  einer  Oktavnummer  zwi¬ 
schen  0  und  6  versehen  sein.  Der 
Kammerton  a  mit  440  Hz  hat  in 
dieser  Schreibweise  den  Na¬ 
men  A3. 

P  kennzeichnet  eine  Pause,  für 
die  ebenfalls  die  Längeneinstel¬ 
lung  a/b  gilt. 

SEQUENZFOLGE,  nl,  n2, 
n3 . 0.  Diese  Anweisung  darf  an 


beliebiger  Stelle  stehen  und 
muß  einmal  vorhanden  sein.  Sie 
stellt  die  schon  erwähnte  Se¬ 
quenzfolgeliste  dar,  von  der  die 
Abspielreihenfolge  der  Se¬ 
quenzen  gesteuert  wird.  Die  Se¬ 
quenzen  nl,  n2  und  so  weiter 
müssen  natürlich  definiert  wer¬ 
den.  Die  Liste  wird  mit  einer  0 
abgeschlossen. 

ENDE  schließt  den  Datensatz 
ab. 

Das  Generatorprogramm 
weist  fehlerhafte  Daten  mit  Feh¬ 
lermeldungen  zurück.  Am  Ende 
eines  Generatorlaufs  kann  man 
den  erzeugten  Datensatz  spei¬ 
chern.  Dieser  kann  dann  direkt 
vom  erweiterten  Sound-Editor 
geladen  werden. 

Mit  der  Integration  des  Se¬ 
quenzers  in  den  Sound-Editor 
findet  dieser  Kurs  seinen  Ab¬ 
schluß.  Dem  an  Computermusik 
interessierten  Anwender  stehen 
nun  leistungsfähige  Programme 
zum  Experimentieren  und  zur 
Realisierung  seiner  Ideen  zur 
Verfügung.  Der  erfahrene  Pro¬ 
grammierer  wird  vielleicht  das 
eine  oder  andere  hier  veröffent¬ 
lichte  Programm  seinen  Bedürf¬ 
nissen  anpassen  können.  Über 
eine  Resonanz  von  seiten  der  Le¬ 
ser  zum  Beispiel  in  Form  von 
Sound-  oder  Song-Dateien  oder 
Ideen  zur  Erweiterung  oder  Ver¬ 
besserung  der  Programme  wür¬ 
de  sich  der  Autor  freuen. 

(Thom^pjzig/tD  i 


15 

AD=PEEK (253) +256*PEEK (254) 

<  007  > 

16 

LL=PEEK ( AD ) : LH=PEEK ( AD+ 1 ) 

<220> 

17 

POKE  253, LL: POKE  254, LH 

<235> 

18 

AD=LL+256*LH 

<251  > 

19 

LL=PEEK ( AD ) : LH=PEEK ( AD+ 1 ) 

<  223 > 

20 

IF  LL=0  AND  LH=0  THEN  END 

<082> 

21 

IF  PEEK ( AD+4 ) <  > 1 43  THEN  17 

<033> 

22 

ZN=PEEK ( AD+2) +256*PEEK (AD+3) 

<244> 

23 

PRINT  CHR* ( 145) ; ZN; CHR* (157)  ;  "  REM" 

<  1 18> 

24 

PRINT  "  RUN < 4SPACE > " 

<  002  > 

25 

POKE  63 1,1 45 -.POKE  632,145 

<062> 

26 

POKE  633, 145: POKE  634,145 

<000> 

27 

POKE  635,13  : POKE  636,13 

<043> 

28 

POKE  198,6 

<  195> 

29 

END 

<031  > 

Listing  1.  »REM-TEXT-KILLER«.  Bitte  mit  dem  Checksummer  (Seite 
54)  eingeben.  Beachten  Sie  auch  die  Bedienungshinweise  im  Text. 


1060  IF  M=7. 5  THEN  7960  <175> 

1000  IF  A=0  THEN  A=. 1 : Lü AD "MODULATOR" ,0, 1  <029> 

1002  IF  A=. 1  THEN  A=. 2: LOAD"SEQUENCER. OBJ " 

,8,1  <013> 

1004  IF  A=. 2  THEN  A=  1 : LOAD" SEQ. ERG. OBJ  ", 8 

,1  <097> 

1160  DIM  V7.(B,255)  ,TN7.  (255)  ,TH(24)  <255> 

3358  POKE  50334 +SN,C (SN)  <21 3> 

3400  REM -  <220> 

3405  REM  TEMPO  <255> 

3410  IF  PW< 40  THEN  PW=40  <174> 

3415  IF  PW >480  THEN  FW=480  <070> 

3420  TE=FW: SYS  DO, PA, INT (6E7/ (24*TE) )  <025> 

3425  SYS  PR ,6,11,  F2* ;  RIGHT*  (STR*  ( F'W)  ,3)  <204> 

3430  RETURN  <186> 

3840  POKE  50344, -SU: IF  SU  THEN  PRINT  CHR* ( 

18);  <252> 

4132  SYS  PR, 13, 1 ,F2$; " C3SPACE JA" ; Fl* ; "  SEQ 

UENCER"  <  207  > 

7429  :  POKE  30334+1,0(1)  <207> 


7532  SYS  PR,6,4,F2*; "F2" 

7534  SYS  PR ,6, 7, Fl*; "SONG C3SPACEJLADEN" 
7632  SYS  50198: GOSUB  2140: REM  MOD/SEQ  AUS 
7670  NS=— 1 : A=21 1 

7675  SYS  DO, 56326, INT (6E7/ (24*TE) ) 

76e0  IF  SR  THEN  SYS  51093: GOTO  1550 
7635  SYS  MO+ 1033: GOTO  1550 
7735  SYS  50 193: GOSUB  2 140: REM  MOD/SEQ  AUS 
7805  SYS  00,56326, INT (6E7/ (24*TE) ) 

7010  IF  SR  THEN  SYS  51093: RETURN 
7015  SYS  50 185: RETURN: REM  NUR  MOD.  AN 

7900  REM - 

7905  REM  SONG  LADEN 

7910  SYS  PR ,6,7, F2* ; " SONG  C3SPACE  >L ADEN " 
7915  SYS  PR, 10,4, Fl*; "DATEINAME  "; 

7920  SYS  PR, 10, 14, ;: INPUT  DN* 

7925  SYS  50966: GOSUB  2140 
7930  OFEN  S , E , 0 , DN*+ " , P , R " : CLOSE  0 
7935  OPEN  1,8,15:1  NF'UT  #1,A,A*,X,Y:  CLOSE  1 
7940  SYS  PR ,12,4," C29SPACE  > " 

7945  IF  A=0  THEN  7955 

7950  SYS  PR, 12,3, A; A*; X; Y: GOTO  7920 

7955  A=0: M=7. 5: LOAD  DN*,8,1 

7960  SYS  PR ,6, 7, Fl#; "SONG  C3SPACEJLADEN" 

7965  M=7 : SQ=- 1 

7970  SYS  DO, 56326, INT (6E7/ (24*TE) ) 

7975  SYS  DO, 50310, USR (39432) 

7980  SYS  51001  : REM  SEQ/MOD  START/ I NIT 
7985  IF  NOT  SR  THEN  SYS  50966 
7990  A=65: GOTO  1550 

8130  ON  L  GOTO  8150,8220,8200,8310,8310 
8180  FOR  1=0  TO  B:V7.  ( I  ,  A)  =ZN:  NEXT 
3400  :  FOR  J=0  TO  8:  97.  (J  ,  A)  =2000:  NEXT 
0482  50=36864:01=56320 
8578  :  POKE  50334+SN,C (SN) 

0627  POKE  50303,0  : REM  EG  ABKOPPELN (SEQ) 
0632  TE=120  : REM  TEMPO 

8920  SQ=0 : SM=0 : SR=0 : A=2 : RETURN 
9530  DATA  MA , 3700 , 160 , 3800 , S , 9990 , A 
9750  DATA  M7 , 7600 , 133 , 7700 , 134 , 7900 , 137 
9800  DATA  MB, 10420,029, 10450, 157 
1 0000  REM============================== 

10010  REM  UNTERMENUE  SEQUENCER 

320  REM============================== 

10030  M=B: PV=0: SYS  OL: PRINT" CHOME , DOWN >" ; F 
1$: 

10040  PRINT"  SEQUENCER"; 

10045  IF  NOT  SG  THEN  PRINT" -C2SPACE>  (KEIN  S 
ONG  VORHANDEN) " 

10050  SYS  PR, 4, 10, "TEMPO  MODUS  SEQNR C2SPAC 
E3-SOFT-EG" 

10060  SYS  PR  ,  5 , 4  ,  ”  t C_C_C  C  b’C.C.C  C  C'p  C  C  C  CC ’pC  C.C  C  C 1? 
.CCCC_C.C.C_C_C?" 

10070  SYS  PR,6,4,"SC4SPACE>B<5SPACE>Bf5SPA 
CE>£t5SPACE>S  1 C2SPACEJ2 C2SFACE >3  B" 
1 0000  SYS  FR ,7,4,"  t’CCC CFC C C C CPC.CC.nCFC CCCCP 
CC.C.C.C.CCCC?" 

10090  SYS  PR,9,1,F2*; "Fl " ; Fl«; " C2SPACEJRES 
ET  C2SP ACE  >++  C 1 8SPACE  > 1 " 

10100  SYS  PR, 10, 1 ,F2*; "F3";F1*; " C2SPACEJST 
OP  C4SPACEJ+  C2SPACE  >SONG {4SPACEJ+  C7SP 
ACE>2" 

10110  SYS  PR ,11,1, F2*; "F5" ;  Fl*; " C2SPACE JRU 
N  C5SFACE  >— C2SFACE  J  SEQ  C5SPACE > - C7SPAC 
E>3" 

10120  SYS  PR , 12, 1 ,  F2* ; " F7 " ; F 1 $ ; " C9SPACE > — 


10130  IF  SR  THEN  10150 

10140  SYS  PR,6 ,5 , "STOP” : GOTO  10160 

10150  SYS  PR ,6,5, “RUN  " 

10160  SYS  PR, 6, 11 , RIGHT« (STR* (TE) ,3) 

10170  IF  SM  THEN  10190 

10180  SYS  PR ,6 , 16 , "SONG" : GOTO  10210 

10190  SYS  PR ,6,16," SEQ  " 

10200  SYS  PR, 6, 22, RIGHT* ( "  "+STR* (SE) .3) 
10210  REM 

10220  X=PEEK (50303) 

10230  IF  X  AND  1  THEN  SYS  PR , 6 , 20 , " CRVSON , 
SPACE >1  " 

10240  IF  X  AND  2  THEN  SYS  PR, 6, 31 , " CRVSON, 
SPACE >2  " 

10250  IF  X  AND  4  THEN  SYS  PR , 6 , 34 , " CRVSON , 
SPACE >3  " 

10300  AV= 10500: SYS  GS, AV: RETURN 


<239> 

<  156> 
<069> 
<022> 
<222> 

<  187> 
<189> 

<  174> 

<  098  > 
<098> 

<  183> 

<  146> 
<249> 
<030> 
<03B> 
<008> 
<021  > 
<206> 
<097> 

<  1 96  > 

<  171  > 
<061  > 
<084> 
<074> 
<040> 
<009> 
<040> 

<  162> 
<038> 
<089> 
<  122> 
<072> 
<027> 

<  174> 
<235> 
<066> 
<239> 

<  108> 

<  1 30  > 
<079> 

<  1 4 1  > 
<026> 
<121  > 
<046> 

<  005  > 

<039> 

<  121  > 

<  034  > 

<  175> 
<069> 

<  199> 
<21 1  > 


<  1 78> 


<106> 

<093> 

<128> 

<  172> 

<  1 38  > 

<  152> 
<095> 
<255> 
<005> 

<  168> 
<110> 
<1 10> 

<040> 

<  1 82  > 

<  1 97  > 
<05 1  > 


Listing  2.  »SOUND. ED. ZUSATZ«.  Bitte  mit  dem  Checksummer  ein¬ 
geben.  Beachten  Sie  auch  die  Bedienungshinweise  im  Text. 
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10400  REM -  < 0 1 6 > 

10410  REM  PARAMETERWAHL  DURCH  CURSOR  <10B> 

10420  REM  RECHTS  <031 > 

10430  AV=AV+100:IF  AV >10900  TUEN  AV= 10500  <095> 

10440  GOTO  10470  <053> 

10450  REM  LINKS  <154> 

10460  AV=AV-100: IF  AV< 10500  THEN  AV=10900  <014> 

10470  FOR  I=PB  TO  PB+B : POKE  I,F1:NEXT  <125> 

10480  SYS  GT,AV  <057> 

10500  REM -  <  1 1 8  > 

10510  REM  RUN/STOP  WAEHLEN  <132> 

10520  PB=F A+245  <195> 

10530  FOR  I=PB  TO  PB+3:P0KE  I,F2:NEXT  <149> 

10540  PA=CI+1 2: PV=1 1000: RETURN  <170> 

10600  REM -  <  2 1 8  > 

10610  REM  TEMPO  WAEHLEN  <139> 

10620  PB=FA+250  <021 > 

10630  FOR  I =PB  TO  PB+3:P0KE  I,F2:NEXT  <249> 

10640  PA=C I +6 : PW=TE  <018> 

10650  PM=500 : P 1 = 1 : P2= 10: PV=3400 : RETURN  <012> 

10700  REM -  <062> 

10710  REM  MODUS  WAEHLEN  <121> 

10720  PB=FA+256  <145> 

10730  FOR  I=PB  TO  PB+3:P0KE  I,F2:NEXT  <093> 

10740  PA=50345 : PW=PEEK ( PA )  <020> 

10750  PV=1 1100: RETURN  <100> 

10800  REM -  <  1 64  > 

10810  REM  SEQNR  WAEHLEN  <207> 

10820  PB=FA+262  <233 > 

10830  FOR  I=F'B  TO  PB+2:P0KE  I,F2:NEXT  <187> 

10840  PW=SE :  P 1  =  1 : P2= 1 : PM= 1 000  <054  > 

1 0B50  PV= 1 1 200 : RETURN  <  075  > 

10900  REM -  <  008  > 

10910  REM  SOFT-EG  WAEHLEN  <203> 

10920  F'B=FA+26S  <101> 

10930  FOR  I=PB  TO  PB+8:POKE  I,F2:NEXT  <079> 

10940  PA=50303:PV=1 1300: RETURN  <124> 

11000  REM -  <  108> 

11010  REM  SEQUENCER  RESET/STOP/RUN  <231 > 

11015  IF  NOT  SQ  THEN  RETURN  <095> 

11020  IF  A< 1 33  OR  A>1 35  THEN  RETURN  <234 > 

11030  ON  A-132  GOTO  11040,11060,11080  <107> 

11040  REM  RESET  <12g^ 

11042  IF  SM  THEN  SYS  51 116: RETURN  <197> 

11045  SYS  51001  <091 > 

11050  IF  NOT  SR  THEN  SYS  50966  <055> 

11055  RETURN  <191> 

11060  REM  STOP  < 164 > 

11065  SYS  50966: SYS  PR,6,5,F2$; "STOP"  <008> 

11070  SR=0: IF  NOT  SU  THEN  2140  <069> 

11075  RETURN  <21 1> 

11080  REM  RUN  < 140> 

11085  SYS  51093: SYS  FR,6,5,F2*; "RUN  "  <165> 

1 1 090  SR=— 1 : RETURN  <  030  > 

11100  REM -  <  2 1 0  > 

11110  REM  SEQUENCER-MODUS  (SONG/SEQ)  <185> 

11112  IF  NOT  SQ  THEN  RETURN  <192> 

11115  IF  A=134  THEN  11130  <191> 

11120  IF  A=135  THEN  11150  <100> 

11125  RETURN  <005> 

11130  REM  SONG-MODUS  <167> 

11135  SM=0  :  POKE  F'A,0  <025> 

11140  SYS  F'R  , 6 , 16  , F2$;  "SONG"  <174> 

11145  SYS  PR ,  6 , 22 ,  "  C5SPACE }  "  :  RETURN  <139> 

11150  REM  SEQUENZ-MODUS  <203> 

11155  SM=— 1 : POKE  PA,1:SYS  PR,6,16,"SEQ  "  <122> 

11160  SYS  PR, 6, 16,F2$;  "SEQ  ••  <111> 

11165  SE= (USR (50312) -USR (50310) ) /3+1  <186> 

11170  SYS  F'R  ,  6 , 22  ,  F 1  $ ;  R I GHT  t-  (  "  "+STR$(SE), 

3)  < 168> 

11175  RETURN  <055> 

11200  REM -  <054> 

11210  REM  SEQUENZ-NUMMER  <218> 

11220  IF  NOT  SM  THEN  RETURN  <171> 

11230  IF  PW=0  THEN  PW=1: RETURN  <083> 

11240  AD=USR  <  503 1 0 )  +  ( F'W—  1  )  *3  <009> 

11250  IF  USR (AD) =0  THEN  PW=PW- 1 : RETURN  <167> 

11260  SYS  DO  ,  503 12,  AD :  SE=F’W  <002> 

11270  SYS  DO, 50314, USR (AD)  <185> 

11280  SYS  51116  : REM  NEXTSEQ  <189> 

11285  SYS  PR ,6,22, F2$ ; R I GHT $ ( "  ”+STR$(SE), 

3)  <  045 > 

11290  RETURN  <172> 

11300  REM -  <  156> 

11310  REM  SEQUENCER  SOFT-EG-STEUERUNG  <066> 

11320  X=PEEK (PA)  < 148> 

11330  FOR  1=0  TO  2  <093> 


11340 

; 

IF  i 

A< >133+1  THEN  11420 

<  155> 

11350 

; 

Y=2tl 

<032> 

11360 

: 

IF 

(X  AND  Y)  THEN  11400 

<05B> 

11370 

: 

X=X 

OR  Y : POKE  PA,X 

<251  > 

11380 

; 

SYS 

PR, 6, 28+3*1 ,F24; " <RVSON>"; 1+1; 

M 

CLEFT, SPACE}" 

<070> 

11390 

: 

GOTO  11420 

<  153> 

11400 

• 

X=X 

AND  (255— Y) : POKE  PA,X 

<227> 

11410 

: 

SYS 

PR , 6 , 28+3* I , F2$ ; I + 1 ; " CLEFT , SPA 

CE>  " 

<250> 

11420 

NEXT 

I : RETURN 

<  1 88  > 

©  64 'er 

Listing  2.  Schluß 

PROGRAMM 

:  SEQ 

ERB. OBJ 

0739  0855 

C739 

78 

A5 

FE 

48 

A5 

FF 

48 

A9 

1B 

C74 1 

: 

EA 

A2 

02 

9D 

35 

05 

9D 

A2 

EE 

C749 

: 

C5 

BD 

92 

07 

9D 

5B 

06 

CA 

F0 

C751 

: 

10 

Fl 

AD 

86 

04 

8D 

88 

04 

FA 

C759 

: 

AD 

87 

04 

BD 

89 

04 

20 

ED 

08 

C761 

: 

C5 

A9 

E2 

8D 

D7 

04 

A9 

03 

37 

0769 

: 

8D 

D8 

04 

A9 

IE 

8D 

14 

03 

6D 

0771 

: 

A9 

05 

8D 

15 

03 

A9 

D7 

8D 

FB 

C779 

: 

D3 

04 

A9 

07 

8D 

D4 

04 

A9 

F7 

C781 

• 

82 

8D 

0D 

DC 

A9 

11 

BD 

0F 

20 

C789 

: 

DC 

68 

85 

FF 

68 

85 

FE 

58 

5A 

C791 

s 

60 

4C 

DC 

C7 

70 

A9 

IE 

BD 

28 

C799 

: 

14 

03 

A9 

05 

BD 

15 

03 

A9 

33 

C7A1 

: 

82 

8D 

0D 

DC 

A9 

1  1 

8D 

0F 

40 

C7A9 

2 

DC 

58 

60 

78 

A5 

FE 

48 

A5 

97 

C7B1 

: 

FF 

48 

20 

ED 

05 

68 

85 

FF 

50 

C7B9 

: 

68 

85 

FE 

58 

60 

AE 

83 

04 

02 

C7C 1 

: 

BD 

Al 

04 

20 

7F 

04 

F0 

08 

F7 

C7C9 

: 

AD 

48 

00 

29 

FE 

8D 

48 

00 

EF 

C7D1 

2 

AD 

A3 

04 

40 

5E 

06 

AE 

85 

6F 

C7D9 

: 

04 

9D 

00 

00 

A5 

FE 

9D 

01 

4F 

C7E1 

: 

00 

A5 

FB 

48 

A5 

FC 

48 

A5 

2A 

C7E9 

: 

FD 

48 

86 

FE 

20 

6A 

02 

AE 

49 

C7F 1 

: 

83 

04 

BD 

18 

00 

D0 

12 

AE 

81 

C7F9 

: 

85 

04 

BD 

05 

00 

9D 

00 

D4 

93 

CB01 

: 

BD 

06 

00 

9D 

01 

D4 

40 

20 

E5 

C809 

: 

C8 

20 

43 

02 

AE 

85 

04 

BD 

B0 

äifc 

-  l 

00 

04 

85 

18 

FD 

BD 

20 

05 

A6 

00 

00 

65 

AE 

FB 

30 

A2 

C821 

: 

9D 

00 

D4 

BD 

06 

00 

65 

FC 

Al 

C829 

: 

9D 

01 

D4 

AE 

83 

04 

BD 

Al 

EA 

Listing  3.  »SEQ. 
ERG.OBJ«.  Bitte  mit 

C831 

C839 

! 

04 

00 

20 

09 

7F 

01 

04 

BD 

F0 

48 

08 

00 

AD 

BD 

48 

9E 

1A 

2F 

C84 1 

: 

04 

09 

01 

AE 

85 

04 

9D 

04 

9D 

dem  MSE  (Seite  54) 

0849 

: 

D4 

68 

85 

FD 

68 

85 

FC 

68 

EA 

eingeben. 

C851 

s 

85 

FB 

60 

00 

FF 

00 

FF 

00 

EC 

PROGRAMM  :  TEST. SONG  9A0B  9A5B 


9A08 

2 

4E 

9A 

01 

61 

EF 

00 

00 

15 

39 

9A10 

• 

9A 

0A 

9A 

0A 

9A 

06 

67 

B0 

70 

9A1B 

z 

B2 

B4 

B5 

B7 

B9 

BB 

00 

00 

87 

9A20 

: 

BA 

B3 

B7 

B5 

B3 

B2 

B0 

00 

6E 

Listing  4. 

9A28 

2 

2E 

9A 

38 

9A 

43 

9A 

12 

67 

25 

9A30 

s 

C0 

00 

00 

BB 

48 

79 

C0 

00 

4B 

»TEST.SONG«. 

9A38 

s 

12 

67 

B7 

B9 

24 

6D 

B7 

48 

40 

Bitte  mit  dem 

9A40 

- 

79 

B7 

00 

12 

67 

B4 

B5 

24 

12 

9A48 

- 

6D 

B2 

48 

79 

B4 

00 

0F 

9A 

00 

MSE  (Seite  54) 

9A50 

s 

00 

0F 

9A 

00 

28 

9A 

00 

00 

D6 

eingeben. 

9A58 

: 

00 

00 

00 

42 

32 

20 

46 

32 

A3 

1160 

DIM  SF (200) 

:  REM 

SEQUENZFOLGEL I STE 

<  159> 

1  170 

DIM  SA (200) 

:  REM 

SEQUENZ ADRESSENL . 

<  002  > 

1180 

DIM  TA (3) 

:  REM 

TRACKADRESSEN 

<01  0> 

1190 

REM  NOTENNAMEN 

<  103> 

1200 

NN*=”CCDDEFFGGAAH" 

<  1 9 1  > 

1210 

DN$=" " 

:  REM 

DATEINAME 

<064> 

1220 

5=1 

:  REM 

AKTUELLE  SEQUENZ 

<21 7> 

1230 

T=  1 

:  REM 

AKTUELLER  TRACK 

<157> 

1240 

AD=0 

:  REM 

ALLG.  ADRESSE 

<  1 1 9  > 

1250 

SA=39432 

:  REM 

*9A08 

<062> 

1260 

Q=96 

:  REM 

QUANTISIERUNG 

<24B> 

1270 

R=0.  5 

:  REM 

GATE  ON/LAENGE 

<  1 70  > 

12S0 

NL= 1/4 

:  REM 

NOTENLAENGE 

<  191  > 

1290 

L=0 

:  REM 

STRINGLAENGE 

<031  > 

1300 

1500 

SV=12*4096 

:  REM 

SAVE-ROUTINE 

<  2 1 4  > 

<096> 

Listing  5.  »SEQUENZGENERATOR«.  Bitte  mit  dem  Checksummer 

(Seite  54)  eingeben. 
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1510  REM  FROGRAMMSTART 

<  1  4  1  > 

3300  Fi= " GATE-OFF-ZE I T  ZU  GROSS" 

<  1 85  > 

1520  REM - 

<  1 16> 

3310  GOTO  5000 

<  234  > 

1530  REM  SAVE-MASCHINENPROGRAMM 

<  107> 

3320  POKE  AD, AN: AD=AD+1 

<248> 

1540  FOR  1=0  TO  17 

<137> 

3330  POKE  AD , OF+97 : AD=AD+ 1 

<081  > 

1550  READ  XrPOKE  SV+I,X:NEXT  I 

<  129> 

3340  GOTO  2110 

<034> 

2020  REM 

<048> 

3400  REM - 

<220> 

2030  REM  DUMMY-TRACK  ERZEUGEN 

<040> 

3410  REM  VERHAELTNIS  GATE-ON /GESAMTZEIT 

<  120> 

2040  AD=SA+2 

<  153> 

3420  REM  (Z/N  =  GATE  ON/GATE-OFF) 

<  103> 

2050  POKE  AD  ,1  : POKE  AD+1,97 

<  172> 

3430  REM - 

<250> 

2060  POKE  AD+2, 239: POKE  AD+3,0 

<094> 

3440  R=Z/ (Z+N)  -.GOTO  2110 

<  166> 

2070  H0=INT (AD/256) :L0=AD-256*H0 

<  191  > 

3600  REM - 

<  166> 

2000  AD=AD+4: Ai=" " 

<  2 1 5  > 

3610  REM  SEQUENZFOLGE 

<021  > 

2100  REM  NAECHSTES  DATUM  LESEN 

<042> 

3620  REM - 

<  1 B6  > 

2110  PRINT"  " ; Ai; : READ  Ai 

<201  > 

3630  PRINT : PRINT : AS=0 

<  1 08  > 

2120  L=LEN(Ai) :Li=LEFTi(Ai,l> 

<  039  > 

3640  PRINT"  " ; Ai; : READ  Ai: A=INT (VAL (Ai ) ) 

<  1 46> 

2150  IF  Ai="P"  THEN  3100 

<  1 97> 

3650  IF  A=0  THEN  3670 

<  1 73> 

2160  IF  Ai=" PAUSE"  THEN  3100 

<  1 08  > 

3660  SF  ( AS )  =A :  AS=AS+ 1 :  GOTO  3640 

<001  > 

2165  IF  Af=" TRACK"  THEN  3B00 

<  208  > 

3670  IF  Ai<>”0"  THEN  3690 

<032> 

2170  IF  Ai=" SEQUENZ "  THEN  4000 

<  080  > 

3680  PRINT"  0 " : READ  Ai: GOTO  2120 

<053  > 

2175  IF  A*=" SEQUENZFOLGE"  THEN  3600 

<  0 1 8  > 

3690  Fi="LISTE  MUSS  MIT  0  ABGESCHLOSSEN  SE 

2190  IF  A*="ENDE"  THEN  4300 

<  1 68  > 

IN" 

<  133> 

2200  REM 

<  230  > 

3700  GOTO  5000 

<  1 16> 

2210  REM  NACH  NOTENNAMEN  SUCHEN 

<  184  > 

3800  REM - 

<110> 

2220  REM 

<  250  > 

3810  REM  TRACK 

<160> 

2230  IF  L=1  THEN  5000 

<  122> 

3820  REM - 

<  1 30  > 

2240  IF  L>3  THEN  2500 

<056> 

3830  PRINT: PRINT: PRINT  Ai; 

<201  > 

2250  N= 1 

<1B7> 

3840  READ  Ai: A=INT ( VAL ( Ai) ) 

<075> 

2260  IF  Li=MIDi(NNi,N,l)  THEN  2300 

<  08 1  > 

3850  IF  A>=1  AND  A<=3  THEN  3880 

<057> 

2270  N=N+ 1 : IF  N<13  THEN  2260 

<062> 

3860  Fi=" NUR  1,2,3  ZULAESSIG" 

<  050  > 

2280  GOTO  2500  : REM  KEINE  NOTE 

<  089  > 

3870  GOTO  5000 

<  032  > 

2300  R*=RIGHTi (Ai, 1) :0=VAL(Ri) 

<  204  > 

3880  PRINT  A:  T=A 

<047> 

2310  IF  0=0  AND  Ri<>"0"  THEN  2420 

<  008  > 

3890  IF  NS  THEN  NS=0:GOTO  3910 

<089> 

2320  IF  0>6  THEN  2420 

<005> 

3900  POKE  AD,0: AD=AD+1 

<054> 

2330  IF  L=2  THEN  3000 

< 255  > 

3910  HI=INT (AD/256) :L0=AD-256*HI 

<074> 

2340  Mi=MIDi(Ai,2, 1) 

<151  > 

3920  POKE  SA  CS)  +  (T-l ) *2,L0 

<012> 

2350  IF  M$="#"  THEN  N=N+1:E0T0  3000 

<  1 57> 

3930  POKE  SA (S) + (T-l ) *2+1 ,HI 

<  167> 

2360  IF  Mi="B"  THEN  N=N-l:GOTO  3000 

<087> 

3940  READ  Ai:  GOTO  2120 

<003> 

2380  Fi="NUR  "+LS+"#"+Ri+"  ODER  "♦Li*1^' 

+R 

4000  REM - 

<056> 

i 

<  039  > 

4010  REM  SEQUENZ 

<023> 

2390  Fi=Fi+"  ODER  "+Li+Ri+"  MOEGLICH" 

<005> 

4020  REM - 

<076> 

2400  GOTO  5000 

<086  > 

4030  PRINT: PRINT: PRINT: PRINT  Ai; 

<250> 

2420  Fi=" OKTAVBEREICH  0-6" 

<030> 

4040  READ  Ai : A= I NT ( VAL ( Ai ) ) 

<019> 

2430  GOTO  5000 

<116> 

4 w.  0  IF  A >= 1  AND  A<=200  THEN  4080 

<043> 

2500  REM 

<020> 

4060  Fi="NUR  1-200  ZULAESSIG" 

<  223 > 

2510  REM  NACH  /  ODER  -  SUCHEN 

<  1 12> 

4070  GOTO  5000- 

<232> 

2520  REM 

<040> 

4030  PRINT  A:S=A 

<  2 1 5  > 

2530  Mi=MIDi (Ai, 2, 1) 

<  085  > 

4090  POKE  AD , 0: AD=AD+i : NS=— 1 : SA (S) =AD 

<  157> 

2540  IF  M»<>"/"  AND  M$<>"-"  THEN  2560 

<096> 

4100  REM  TRACK-ZEIGER  AUF  DUMMY-TRACK 

<  038 > 

2550  Ri=R I GHT t ( Ai , L-2 ) : GOTO  2600 

<003> 

4110  REM  INITIALISIEREN 

<212> 

2560  Mi=MIDi(Ai,3, 1) 

<  121  > 

4120  POKE  AD  . L0: POKE  AD+1,H0 

<083> 

2570  IF  MtO"/H  AND  Mf<>"-"  THEN  5000 

<  1 36  > 

4130  POKE  AD+2, L0: POKE  AD+3,H0 

<  1 44  > 

2580  Li=LEFTi(Ai,2>  :  Ri=RIGHTi  ( Ai ,L— 3) 

<  1 22  > 

4140  POKE  AD+4 , L0 : POKE  AD+5,H0 

<02B> 

2600  REM 

<122> 

4150  AD=AD+6 

<  1 08  > 

2610  REM  ZAEHLER  UND  NENNER  UNTERSUCHEN 

<  1 55> 

4160  READ  Ai: GOTO  2120 

<225> 

2620  REM 

<142> 

4300  REM - 

<  102> 

2630  Z=VAL(Li) 

<007> 

4310  REM  ENDE 

<027> 

2640  IF  Z>0  AND  Z<99  THEN  2670 

<  177> 

4320  REM  SEQUENZFOLGELISTE  AUFBAUEN 

<081  > 

2650  F i= " Z AEHLER-BERE I CH  1  BIS  99" 

<044  > 

4330  REM - 

<132> 

2660  GOTO  5000 

<092> 

4340  PRINT: PRINT  Ai 

<021  > 

2670  N=VAL (Ri) 

<  1 28  > 

4350  POKE  AD , 0: AD=AD+ 1 

<250> 

2680  IF  N>0  OR  Mi="-"  THEN  2710 

<  1 03  > 

4360  HI=INT (AD/256) : L0=AD-256#HI 

<  0 1 6  > 

2690  Fi=" NENNER  MUSS  GROESSER  0  SEIN" 

<  200  > 

4370  POKE  SA, LO: POKE  SA+l.HI 

<  135> 

2700  GOTO  5000 

<  132> 

4380  FOR  1=0  TO  AS-1 

<246> 

2710  IF  Mi="/"  THEN  3200  : REM  ZEIT 

<  208  > 

4390  :  X=SA (SF ( I ) ) : IF  X>0  THEN  4410 

<163> 

2720  IF  Mi="-"  THEN  3400  : REM  ON/OFF 

<  1 39  > 

4400  :  PRINT"SEQUENZ"; I; "NICHT  DEFINIERT": 

2730  GOTO  5000 

<  1 62  > 

GOTO  4420 

<  177> 

3000  REM - 

<0/2> 

4410  :  HI=INT (X/256) :L0=X-256*HI 

<073> 

3010  REM  NOTE  (TONNUMMER  N  OKTAVE  0) 

<  197> 

4420  :  POKE  AD+3*I,L0 

<045> 

3020  REM - 

<  092  > 

4430  :  POKE  AD+3*I+1,HI 

<  129> 

3030  IF  N=0  THEN  N=12: 0=0-1 

<  157> 

4440  :  POKE  AD+3*I+2,0 

<062> 

3040  IF  N= 13  THEN  N=1  :0=0+l 

<  1 13> 

4450  NEXT  I 

<216> 

3050  POKE  AD, 128+16+O+N-l : AD=AD+1 

<051  > 

4460  FOR  1=0  TO  2:P0KE  AD+3*AS+ I , 0:  NEXT 

<212> 

3060  GOTO  2110 

<006  > 

4470  AD=AD+3*AS+3 

<  179> 

3100  REM - 

<  174> 

4500  REM 

<244> 

3110  REM  PAUSE 

<  050  > 

4510  REM  BEREICH  SA-AD  AUF  DISK 

<082> 

3120  REM - 

<  1 94> 

4520  REM 

<008> 

3130  POKE  AD  ,  239 : AD=AD+ 1 : GOTO  2110 

<214> 

4530  INFUT "ABSPEICHERN  (J/N)  " ; Ai 

<21 1  > 

3200  REM - 

<018> 

4540  IF  Ai<  >” J"  THEN  END 

<  123> 

3210  REM  ZEIT  (NOTENDAUER) 

<  178> 

4550  I NPUT " DATE I NAME  <9SPACE  > " ; DNi 

<  164> 

3220  REM - 

<03B> 

4560  AH=INT (SA/256) :AL=SA-256*AH 

<079> 

3230  T=INT(Q*Z/N)  : REM  GESAMTZEIT 

<089> 

4570  EH=INT (AD/256) :EL=AD-256*EH 

<06 1  > 

3240  AN=INT (R*Q*Z/N) : REM  GATE-QN-ZEIT 

<099> 

4580  OPEN  1,8,1, DNi 

<  135> 

3250  OF=T-AN  : REM  GATE-OFF- ZEIT 

<093> 

4590  POKE  252, AL: POKE  253, AH 

<  158> 

3260  IF  AN< =96  THEN  3290 

<04 1  > 

4600  POKE  730,252 

<U9> 

3270  Fi="GATE— ON— ZEIT  ZU  GROSS" 

<  1 54  > 

4610  POKE  781, EL: POKE  782, EH 

<040> 

3280  GOTO  5000 

<204> 

4620  SYS  SV: CLOSE  1 

<I76> 

3290  IF  OF<=30  THEN  3320 

<  198> 

4630  END 

<060> 
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5000 

REM - 

<040> 

8390 

DATA 

1/2, HB3, 1/4, P 

<  1 37  > 

5010 

REM  FEHLER 

<  140> 

8400 

DATA 

TRACK , 3 

<081  > 

5020 

REM - 

<  060  > 

8410 

DATA 

1-1, 1/4,HB0,EB1 ,HB1,EB1 

<057> 

5030 

PRINT: PRINT 

<  156> 

8420 

REM 

<003> 

5040 

PR INT" FEHLERHAFTES  DATUM:  ";A$ 

<023> 

8430 

DATA 

SEQUENZ, 3 

<033> 

5050 

IF  F$<>" "  THEN  PRINT  F* 

<  192> 

8440 

DATA 

TRACK, 1 

<1 19> 

5060 

PRINT : A$=" " : F$=" " : GOTO  2110 

<  1 51  > 

8450 

DATA 

1-1 , 1/4, P 

<  063  > 

7000 

REM - 

<  008  > 

8460 

DATA 

DBS ,  P ,  DB5 ,  P ,  AB4  ,  P ,  AB4  ,  P 

<148> 

7010 

REM  SAVE-ROUTINE 

<  202  > 

8470 

DATA 

GB4 , P , GB4 , P , DB4 , P , DB4 

<  170> 

7020 

REM - 

<028> 

8480 

DATA 

TRACK, 2 

<  161  > 

7030 

DATA  072,165,001,041,254,133,001 

<250> 

8490 

DATA 

1-0, 1/8 

<029> 

7040 

DATA  104,032,216,255,165,001,009 

<  191  > 

8500 

DATA 

GB4 , AB4 , HB4 , AB4 , GB4 , AB4 , HB4  ,  P 

<  102> 

7050 

DATA  001,133,001,096 

<214> 

8510 

DATA 

DB4 , EB4 , F4 , EB4 , DB4 , EB4 , F4 , P 

<200> 

B000 

REM - 

<248> 

8520 

DATA 

CB4 , DB4 , EB4 , DB4 , CB4 , DB4 , EB4 , P 

<  1 44> 

B010 

REM  MUSIKSTUECK 

<253> 

8530 

DATA 

GB3 , AB3 , HB3 , AB3 , GB3 , AB3 , HB3 , P 

<254> 

B020 

REM  (EDVARD  GRIEG  KOBOLD) 

<056> 

8540 

DATA 

TRACK, 3 

<  162> 

8030 

REM - 

<  022  > 

8550 

DATA 

1-0, 1/4, P, 1/2 

<079> 

8100 

DATA  SEQUENZ, 1 

<058> 

8560 

DATA 

GB3 , P , DB3 , P , CB3 , P , GB2 , 1 /4 , P 

<  105> 

Bl  10 

DATA  TRACK, 3 

<240> 

8570 

REM 

<  250  > 

8120 

DATA  1-1 , 1/4, EB1 ,HB1 ,EB1 ,HE0 

<  171  > 

8600 

DATA 

SEQUENZ , 4 

<074> 

Bl  30 

DATA  EB1 ,HB1 „EB1 

<  121  > 

8610 

DATA 

TRACK , 1 

<228> 

Bl  40 

REM 

<072> 

8620 

DATA 

1-0, 1/4,P, 1/1 ,P,P,P,P, 1/8 

<  028  > 

B200 

DATA  SEQUENZ, 2 

<  055  > 

8630 

DATA 

HB 1 , F2 , HB2 , HB2 , F3 , HB3 , HB3 , F4 

<  1 25  > 

8210 

DATA  TRACK, 1 

<145> 

8640 

DATA 

1  /  4 , HB4 , 3/4 , P 

<222> 

8220 

DATA  1—0 ,1/4, P,1 /8, HB3 , 3/8 ,P 

<138> 

8650 

DATA 

TRACK , 2 

<  0 1 4  > 

3230 

DATA  1/8,HB3,3/B,P, 1-1 , 1/4 

<092> 

8660 

DATA 

1-0, 1/8,F2,GB2,AB2,GB2,F2,P 

<  126> 

B240 

DATA  HB3 , GB3 , GB3 , HB3 , A3 , F3 ,F3 , A3 

<231  > 

8670 

DATA 

GB2 , F2 , EB2 , P , F2 , EB2 , DB2 , P 

<  1 1 8  > 

B250 

DATA  1/2, A3, P, 1-0 

<  236  > 

8680 

DATA 

EB2 , DB2 , C2 , P , 1 / 1 , P , 1 /8 

<  14B> 

B260 

DATA  1/8, EB4 ,3/8 , P , 1/8 , EB4 ,3/8 , P 

<  107> 

8690 

DATA 

EB2,DB2,CB2,P, 1/2, P 

<  183> 

8270 

DATA  1-1, 1/4,EB4,CB4,CB4,EB4 

<  1 30  > 

8700 

DATA 

1/1, Fl, 1/4, F4, 3/4, P 

<  0 1 5  > 

8280 

DATA  D4 , HB3 , HB3 , D4 , 1—0 ,1/4 ,D4 

<067> 

8710 

DATA 

TRACK , 3 

<  078  > 

8290 

DATA  1/2, P 

<  098  > 

8720 

DATA 

1-0, 1/8, Fl ,GB1 ,AB1 ,GB1 ,F1 ,P 

<  1 46  > 

8300 

DATA  TRACK, 2 

<236> 

8730 

DATA 

GBl , Fl , EB1 , P , F 1 , EB 1 , DB 1 ,P 

<095> 

8310 

DATA  1-0, 1/8,EB3,F3 

<  174> 

8740 

DATA 

EB 1 ,  DB  1  ,  C 1  ,  P ,  1  / 1  ,  P ,  1  /8 

<  1 60  > 

8320 

DATA  GB3 , F3 , EB3 , F3 , GB3 , F3 , EB3 , F3 

<  136> 

8750 

DATA 

EB1 , DB 1 ,CB1 ,P, 1/2, P 

<179> 

8330 

DATA  1-1 , 1/4,GB3,EB3,EB3,GB3 

<  173> 

8760 

DATA 

1/1 ,F0, 1/4, F2 , 3/4 , P 

<075> 

8340 

DATA  F3,C3,C3,F3, 1/2, F3, 1/4, P 

<  084  > 

8800 

REM 

<226> 

8350 

DATA  1-0, 1/8,AB3,HB3 

<  002  > 

8810 

DATA 

SEQUENZFÜLGE, 1 ,2, 2, 3, 3, 4,0 

<110> 

8360 

DATA  CB4 , HB3 , AB3 , HB3 

<137> 

8820 

DATA 

ENDE 

<  1 73  > 

8370 

8380 

DATA  CB4,HB3,AB3,HB3, 1-1 , 1/4 

DATA  CB4 , AB3 , AB3 , CB4 , HB3 , F3 , F3 , HB3 

<199> 

<  132> 

©  64 
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Adventures,  die  keine  sind 


Bei  folgenden  zwei  Spie¬ 
len  fällt  die  Einordnung 
schwer:  Sind  es  Adven¬ 
tures,  Strategie-Spiele, 
Action-Spiele  oder  ganz 
was  anderes.  Neues? 


Die  zwei  Spiele,  die  wir  Ihnen  auf 
dieser  Seite  vorstellen,  haben 
drei  Dinge  gemeinsam:  Sie  ha¬ 
ben  ein  völlig  neues  Konzept,  sind 
also  auf  ihre  Art  einmalig;  beide  las¬ 
sen  sich  als  Adventures  der  neuen 
Schule  bezeichnen;  beide  haben 
berühmte  Vorbilder:  ein  Buch  bezie¬ 
hungsweise  eme  Popgruppe. 

Bei  »The  Fourth  Protocol«  handelt 
es  sich  um  ein  Spiel  nach  dem 
gleichnamigen  Buch  von  Frederick 
Forsyth.  Zur  Handlung:  Durch  einen 
Verräter  innerhalb  des  britischen 
Geheimdienstes  können  geheime 
NATO-Akten  in  die  Sowjetunion  ge¬ 
langen.  Über  Umwege  findet  man 
einen  wahrhaft  teuflischen  Plan  eini¬ 
ger  Russen  heraus.  Sie  schmuggeln 
in  Einzelteilen  eine  kleine  Atom¬ 
bombe  nach  England,  die  sie  in  der 
Nähe  einer  amerikanischen  Luft¬ 
waffenbasis  zünden  wollen.  Das 
Ganze  soll  als  Unfall  der  Amerika¬ 
ner  getarnt  werden.  Erstrebtes  Ziel: 
Großbritannien  soll  aus  der  NATO 
austreten. 

Der  Spieler  übernimmt  nun  in  den 
insgesamt  drei  Einzelspielen  die 
Rolle  des  Agenten  John  Preston,  der 
hinter  dieses  Komplott  kommt  und 
es  verhindert. 

Im  ersten  Spielteü  muß  der  Verrä- 
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ter  ausfindig  gemacht  werden.  Die 
Ermittlungen  werden  vom  Spieler 
von  seinem  Büro  aus  geführt.  Von 
dort  aus  kann  er  Akten  anfordern, 
telefonieren,  Überwachungen  an¬ 
ordnen  und  vieles  andere  mehr. 

Der  zweite  Spielteil  ist  schon  ak¬ 
tionsreicher.  Die  Bombe  muß  ausfin¬ 
dig  gemacht  werden.  Jetzt  darf  der 
Spieler  auch  vor  Ort  arbeiten.  Per 
Taxi  und  U-Bahn  oder  zu  Fuß  durch¬ 
streift  er  London,  auf  der  Suche 
nach  Hinweisen. 

Beide  Teile  sind  symbolgesteuer¬ 
te  Adventures.  Auf  dem  Bildschirm 
befinden  .sicti  eine  Reihe  von  Sym¬ 
bolen,  die  verschiedfcxie  Aktionen 
repräsentieren.  Mit  einer  Hand  las¬ 
sen  sich  diese  anwählen.  Meist  öff¬ 
nen  sich  dann  mehrere  Bildschirm¬ 
fenster,  in  denen  sich  Untermenüs 
befinden.  Auch  die  Reaktionen  wer¬ 
den  in  Fenstern  mitgeteilt. 

Die  Grafik  dieser  beiden  Teile  ist 
sehr  detailliert,  die  Auflösung  des  C 
64  wird  voll  ausgenutzt. 

Was  so  gut  anfing,  endet  katastro¬ 
phal:  Im  dritten  Teil  soll  man  die  ge¬ 
fundene  Bombe  entschärfen.  Hier 
wird  man  mit  einem  Text-Grafik- 
Adventure  der  miesesten  Art  kon¬ 
frontiert.  Zum  geringen  Wortschatz 
und  der  plumpen  Grafik  kommt  er¬ 
schwerend  hinzu,  daß  man  gleich¬ 
zeitig  KGB-Agenten  per  joystickge¬ 
steuertem  Fadenkreuz  abschießen 
soll.  Dieser  Teil  hat  auch  keinerlei 
Gemeinsamkeit  mit  der  Buchvor¬ 
lage. 

Auf  der  ganzen  Länge  positiv  ist 
hingegen  »Frankie  Goes  to  Holly¬ 
wood  —  Welcome  to  the  Pleasurega- 
me«  zu  sehen.  »Frankie«  zählt  zum 
abwechslungsreichsten,  das  je  den 
Computerschirm  erblickt  hat.  Ziel 
des  Spiels  ist  es,  zum  Pleasuredome 
zu  gelangen.  Auf  dem  Weg  dorthin 
gibt  es  derart  viel  zu  erleben,  daß 
wir  es  hier  weder  aufzählen  können 
noch  wollen.  »Frankie«  hat  das  Kon¬ 
zept  des  Spiels  im  Spiel:  Von  der 


Hauptebene  aus  kann  man  in  Unter¬ 
spiele  gelangen,  zum  Beispiel  in¬ 
dem  man  in  laufende  Video-Clips 
oder  Wandbilder  hineingeht. 

Daß  es  sich  hier  im  tiefsten  Innern 
um  ein  Adventure  handelt,  merkt 
man  kaum.  Aber  man  muß  Räume 
durchsuchen,  Gegenstände  finden 
und  an  bestimmten  Stellen  einset- 
zen,  alles  für  Adventures  charakteri¬ 
stische  Tätigkeiten. 

Die  Grafik  von  »Frankie«  ist  fanta¬ 
stisch,  detailliert,  abwechslungs¬ 
reich  und  gut  animiert.  Auch  hier 
gibt  es  Bildschirmfenster,  die  sich 
bei  bestimmten  Aktionen  öffnen  und 
die  man  sogar  betreten  kann,  um  auf 
andere  Spielebenen  zu  kommen. 
Die  Musikuntermalung  von  »Fran¬ 
kie«  ist  ebenfalls  gelungen,  je  nach 
Spiel  ertönen  verschiedene  Melo¬ 
dien,  die  meisten  natürlich  von  der 
Gruppe  »Frankie  Goes  to  Holly¬ 
wood«.  Da  sich  der  Spielverlauf  bei 
»Frankie«  jedesmal  ändert,  wird  es 
wohl  kaum  langweilig  werden. 

Wenn  man  mal  vom  dritten  Teil 
des  »Fourth  Protocol«  absieht,  liegen 
hier  zwei  außergewöhnliche  Spiele 
in  hervorragender  Qualität  vor.  Bei¬ 
de  überzeugen  durch  gute  Ideen 
und  brillante  Ausführung,  die  kaum 
Wünsche  offen  läßt.  (bs) 
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Handkantensdilag  per  Joystick 


Ein  neuer  Trend  macht 
sich  bei  den  Sportspielen 
breit:  Die  Mann-gegen- 
Mann-Kampfsportarten 
sind  gefragt,  an  der 
Spitze  Karate-Spiele. 


Da  das  Abschießen  von  Raum¬ 
schiffen  in  der  Spielebranche 
an  Reiz  verloren  hat  und  auch 
die  irdischen  Hi-Tech-Schlachten 
mit  Flugzeugen  und  Panzern  fast  völ¬ 
lig  ausgereizt  sind,  besinnt  man  sich 
wieder  auf  die  Ursprünge  der  Aus¬ 
einandersetzung:  Der  direkte,  waf¬ 
fenlose  Kampf,  Mann  gegen  Mann, 
hat  nun  gleich  mehrfach  Einzug  auf 
die  Mattscheiben  gefunden.  Zwei 
große  Gruppen  haben  sich  heraus¬ 
kristallisiert:  Die  Box-Spiele,  denen 
wir  uns  nächstesmal  widmen  wol¬ 
len,  sowie  die  fernöstlichen  Kampf¬ 
sportarten,  an  der  Spitze  Karate.  Wir 
haben  uns  zwei  Karatespiele  her¬ 
ausgesucht,  die  besonders  gut  ge¬ 
lungen  sind. 

»Karateka«  machte  schon  Mitte 
1984  von  sich  reden,  als  es  auf  der 
Sommer-CES  für  die  Apple-Compu¬ 
ter  vorgestellt  wurde.  Nach  über  ei¬ 
nem  Jahr  Wartezeit  ist  es  nun  auch 
für  die  C-64-Besitzer  erhältlich. 

Die  Handlung  ist  recht  schnell  er¬ 
zählt:  Der  finstere  Akuma  hat  die 
schöne  Prinzessin  Mariko  auf  seine 
Festung  entführt  und  eingesperrt. 
Der  tapfere  Held  will  sie  befreien 
und  muß  sich  mit  Handkantenschlä¬ 
gen  und  Fußtritten  zu  ihr  durchar¬ 
beiten.  Behindert  wird  er  von  den  to¬ 


desmutigen  Wachen,  die  den  Hel¬ 
den  nur  über  ihre  Leiche  Vordrin¬ 
gen  lassen  wollen,  und  diversen  an¬ 
deren  Gemeinheiten,  wie  zum  Bei¬ 
spiel  Fallgitter  und  Jagdvögel. 

Dem  Spieler  stehen  drei  Tritte 
und  drei  Schläge,  jeweils  in  ver¬ 
schiedenen  Höhen,  zur  Verfügung. 
Schlagen  kann  er  beliebig  oft,  aber 
nach  drei  Tritten  kommt  er  aus  dem 
Gleichgewicht  und  benötigt  ein 
paar  Augenblicke  Verschnauf¬ 
pause. 

Jeder  Kämpfer  hat  am  unteren 
Rand  des  Bildschirms  eine  Punkte¬ 
leiste.  Bei  jedem  Treffer  ve'  i  rt  man 
Punkte,  für  jede  Zeiteinheit  ohne 
Treffer  gewinnt  man  Punkte.  Die 
Kontrahenten  kämpfen  so  lange  ge¬ 
geneinander,  bis  einer  den  Punkte¬ 
stand  Null  erreicht  hat  und  für  im¬ 
mer  zu  Boden  sinkt.  War  es  der  Spie¬ 
ler,  hat  er  Pech  gehabt,  denn  dann 
ist  das  Spiel  für  ihn  zu  Ende.  War  es 
aber  der  Gegner,  gibt  es  Bonus¬ 
punkte  für  den  Spieler  und  er  darf 
tiefer  in  den  Palast  von  Akuma  ein- 
dr'ingen,  zumindest  bis  er  auf  den 
nächsten  Wärter  trifft. 

Die  Grafik  von  »Karateka«  hat  bei 
der  Umsetzung  auf  den  C  64  ein  we¬ 
nig  gelitten:  Die  Darstellung  selber 
ist  zwar  sehr  realitätsgetreu  und 
packend,  die  Bewegungen  sind 
aber  etwas  langsam  und  ruckhaft. 
Ein  anderes  Makel  ist  der  Sound.  An 
Geräuschen  ist  nur  ein  dumpfes 
Schlaggeräusch  und  eine  kleine 
Melodie  vorhanden.  Hier  läßt  sich 
klar  erkennen,  daß  ein  Apple-Spiel 
auf  den  C  64  umgesetzt,  aber  nicht 
neu  geschrieben  wurde. 

Anders  ist  es  bei  »Way  of  the  Ex- 
ploding  Fist«,  einem  Karate-Spiel  für 
einen  oder  zwei  Spieler,  das  für  den 
C  64  entwickelt  wurde  und  dessen 
Fähigkeiten  voll  ausnutzt.  Hier  gibt 
es  keine  Hintergrundstory  wie  bei 
»Karateka«.  Am  Bildschirm  findet 
nur  ein  sportlicher  Wettkampf  statt, 
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somit  gibt  es  auch  weder  Tote  noch 
Verletzte. 

Bei  »Exploding  Fist«  stehen  den 
Spielern  viel  mehr  Kampftechniken 
zur  Verfügung  wie  bei  »Karateka«. 
Neben  einfachen  Tritten  und  Schlä¬ 
gen  gibt  es  Rundumtritte,  Sprünge 
und  sogar  Salti.  Insgesamt  können 
die  Spieler  per  Joystick  knapp  zwan¬ 
zig  verschiedene  Bewegungen  aus¬ 
führen.  Die  Joystick-Steuerung  sel¬ 
ber  ist  auf  den  ersten  Blick  etwas  un¬ 
übersichtlich,  jedoch  sehr  schnell 
und  leicht  erlernbar. 

Die  Aufmachung  von  »Exploding 
Fist«  verdient  ein  großes  Lob:  Die 
Kämpfer  sind  detailliert  und  schnell 
animiert  (der  Hersteller  spricht  von 
700  verschiedenen  Sprites).  Neben 
mehreren  hervorragenden  Hinter¬ 
grundmusiken  ertönen  digitalisierte 
Kampfschreie  und  sogar  ein 
Plumps-Geräusch,  wenn  einer  der 
Spieler  hinfällt. 

Beide  vorgestellten  Spiele  haben 
ihren  Reiz:  Während  »Karateka« 
Strategie  und  Geschicklichkeit  be¬ 
nötigt,  kommt  es  bei  »Exploding  Fist« 
auf  Geschwindigkeit  und  Aktion  an. 
Für  Solo-Spieler  sind  beide  empfeh¬ 
lenswert,  wer  auch  zu  zweit  spielen 
möchte,  ist  mit  »Exploding  Fist«  bes¬ 
ser  bedient.  (bs) 
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Bestellungen  aus 
anderen  Ländern 
bitte  per  Auslands¬ 
postanweisung! 


Bestellungen  aus  der 
Schweiz  bitte  direkt  an: 
Markt*  Technik  Vertriebs  AG 
Kollerstr.  3 
CH-6300  Zug 
Tel.  042/2231  55 


Bestellungen  aus 
Österreich  bitte  direkt  an: 
Bücherzentrum  Meidling 
Schönbrunnerstr.  261 
1120  Wien 
Tel.  0222/6331  96 
Mlcrocomput-ique 

Erhard  Schiller 
Fasangasse  21 
1030  Wien 
Tel  02  22/785661 


Hardware  für  alle  - 
ein  neuer  64’er 
Leser-Service 

Der  Commodore  64  hat  schon 
oft  bewiesen,  wie  vielseitig  er 
ist.  Er  läßt  sich  nicht  nur  mit  Pro¬ 
grammen,  sondern  auch  durch 
so  manche  Hardware-Erweite¬ 
rung  sinnvoll  nutzen  und  aus¬ 
bauen.  Dabei  ist  es  sicherlich 
ein  reizvoller  Bestandteil  des 
Computer-Hobbys,  sich  solche 
Erweiterungen  selbst  nachzu¬ 
bauen.  Aber  nicht  jeder  Leser 
verfügt  über  die  Gelegenheit 
und  Zeit  zur  Platinenherstel¬ 
lung.  Hinzu  kommt,  daß  es  oft  zu 
teuer  ist,  wegen  einer  bestimm¬ 
ten  Erweiterung,  Investitionen 
von  mehreren  hundert  Mark  für 
eine  Platinenstation  zu  tätigen. 
Wir  haben  reagiert:  Ab  sofort 
besteht  die  Möglichkeit,  im  Rah¬ 
men  des  Leser-Service,  die  in 
der  64’er  abgedruckten  Hard¬ 
ware-Erweiterungen  in  drei  ver¬ 
schiedenen  Ausbaustufen  zu 
erhalten: 

1.  Als  Platinen 

Nur  Leerplatinen.  Die  Be¬ 
schaffung  der  Bauteile  und  der 
Zusammenbau  bleibt  bei  Ihnen. 

2.  Als  Bausätze 

Unsere  Bausätze  enthalten  alle 
Teile,  die  notwendig  sind,  um 
die  beschriebene  Erweiterung 
komplett  aufzubauen.  Sie  brau¬ 
chen  die  Bauteile  nur  noch, 
gemäß  der  Anleitung  im  Heft, 
zusammenzulöten  und  einzu¬ 
bauen. 

3.  Als  Fertiggeräte 

Die  Fertiggeräte  sind  komplett 
aufgebaute  und  geprüfte 
Geräte.  Sie  brauchen  die  Erwei¬ 
terung  lediglich  noch  einzu¬ 
bauen. 


Wichtiger  Hinweis:  Wir  bemühen  uns 
um  eine  umgehende  Auslieferung 
Ihrer  bestellten  Hardware.  Aber  bis 
zum  Eingang  Ihrer  Überweisung,  der 
Auftragsabwicklung  und  die  dazuge¬ 
hörenden  Postwege  vergehen  minde¬ 
stens  3  Wochen.  Bitte  haben  Sie  Ver¬ 
ständnis,  wenn  aus  diesen  Gründen 
Ihre  Hardware  nicht  sofort  bei  Ihnen 
eintrifft. 


Unser  Angebot 


Angebot  1; 


Expansion-Port  Eprom-Platine  mit  1  x  8  KByte 
Speicherplatz  für  2732  bis  2764  Eproms. 


Beschreibung  in  Ausgabe  10/85 

Bestellnummer:  HW  010  pro  Stück  19,80 

Dieser  Artikel  wird  nur  als  Fertiggerät  angeboten. 


Angebot  2: 


Expansion-Port  Eprom-Platine 

mit  2  x  8  KByte  Speicherplatz  für  2732  bis  2764 

Eproms,  mit  Umschaltmöglichkeit. 


Beschreibung  in  Ausgabe  10/85 
Bestellnummer:  HW  020  Leerplatine  pro  Stück 

Bausatz  mit  allen  Teilen:  ^  . 

Bestellnummer:  HW  021  »  ro  Stück 


24,80* 

49,80* 


Fertiggerät,  getestet,  wie  beschrieben: 
Bestellnummer:  HW  022  pro  Stück 


59,80* 


Angebot  3: 


Eprom  Trans  -  Die  Speichererweiterung 


ROM-Speichererweiterung  zum  Einbau  in  den  C64,  gleichzeitig 
Steckplatz  für  ein  Original-  oder  ein  alternatives  Betriebssystem. 
Zwei  Platinen  in  Epoxid-Harz-Ausführung  wie  in  Ausgabe  10/85 
beschrieben. 


Bestellnummer:  HW  030 
Bausatz  mit  allen  Teilen: 
Bestellnummer:  HW  031 


pro  Stück  49,80* 
pro  Stück  119,80* 


Eprom-Trans  ist  nicht  als  Fertiggerät  erhältlich.  Die  Hardware- 
Erweiterungen  aus  früheren  Ausgaben  und  die  40/80  Zeichen- 
Umschaltung  für  den  C  128  werden  wir  so  bald  als  möglich  in  unser 
Angebot  aufnehmen. 


Angebot  4s 


Super  Kernol 

Erweitertes  Betriebssystem  für  den  C  64  mit  vielen  neuen  Funktio¬ 
nen,  inkl.  Adaptersockei,  einbaufertig  in  den  C  64. 
Beschreibung  in  dieser  Ausgabe 

Version  1:  Enthält  Hypra  Load  /  DOS  5.1  /  Funktionstastenbelegung  / 
Renew  /  RS232 

Bestellnummer:  HW  040 

Version  2:  Enthält  Hypra  Load  /  DOS  5.1  /  Funktionstastenbelegung  / 
Renew  /  Super  Centronics  Schnittstelle 

Bestellnummer:  HW  041 

Version  3:  Enthält  Hypra  Load  /  DOS  5.1  /  Funktionstastenbelegung  / 
Renew  /  Hypra  Save 

Bestellnummer:  HW  042 


Version  4:  Enthält  Hypra  Load  /  DOS  5.1  /  Funktionstasten  /  Hypra 
Save  /  Centronics  klein 
Bestellnummer:  HW  043 

Preis  für  jede  Version  pro  Stück:  08,0\J 

•  Alle  Preise  inklusive  Mehrwertsteuer 


Qualität  &  Service 

•  Die  64’er  Hardware  hat 
einen  hohen  Qualitätsstan¬ 
dard.  Wir  verwenden  nur 
beste  Epoxid-Harz-Platinen 
mit  Lötstopp-Lack. 

•  Wir  verwenden  nur  Präzi¬ 
sionssockel  mit  gedrehten 
Kontakten. 

•  Alle  Platinen  werden  pro¬ 
fessionell  gefertigt.  Wenn 
notwendig  mit  doppelseiti¬ 
ger  Beschichtung  und  Löt- 
Durchkontaktierungen. 

•  Jedes  Gerät,  das  wir  versen¬ 
den,  wurde  auf  Funktions¬ 
tüchtigkeit  geprüft. 

•  Wir  sind  auch  nach  dem 
Verkauf  für  Sie  da. 

Neben  der  gesetzlichen 
Garantie  bietet  unser 
Service-  und  Fertigungs¬ 
partner  ihnen  Hilfe  und 
Unterstützung  an. 

Unsere  Garantie 

Im  Rahmen  der  Versand-  und 
Lieferbedingungen  unterlie¬ 
gen  die  Geräte  einer  Gewähr¬ 
leistungszeit  von  6  Monaten 
ab  Lieferung.  Der  Lieferung 
liegt  eine  Service-Karte  bei, 
die  Sie  im  Falle  einer  Be¬ 
anstandung  zusammen  mit 
dem  Gerät  an  die  auf  der  Karte 
vermerkte  Adresse  schicken 
können.  Die  gleiche  Karte  ver¬ 
wenden  Sie  bitte  bei  Repara¬ 
turen  nach  der  Garantiezeit. 

Wie  bestelle  ich? 

Alle  Hardware-Erweiterun¬ 
gen,  die  Sie  bestellen  können, 
tragen  einen  Bestellverweis 
am  Ende  des  Artikels.  Falls 
Sie  keinen  Hinweis  finden,  hat 
sich  der  Autor  dieser  Erweite¬ 
rung  nicht  dazu  entschließen 
können,  seine  Entwicklung  im 
Rahmen  des  Leserservice  für 
eine  Verbreitung  freizugeben. 
Bitte  verwenden  Sie  für  Ihre 
Bestellung  immer  die  Post¬ 
scheck-Zählkarte,  die  Sie  auf 
der  nächsten  Seite  finden 
oder  einen  Verrechnungs¬ 
scheck.  Sie  erleichtern  uns 
damit  die  Auftragsabwicklung 
und  sparen  sich  Versand¬ 
kosten. 


64er-online.de 

64er-online.net 


Bestellungen  aus  Oer 
Schweiz  Bitte  ölrekt  an 
MarW&Tecnmk 
Vettrleü»  AG  Kollorstr  3, 
CH-8300  Zuo, 

Tel.  042/2231  55. 
Bestellungen  aus 
Österreich  bitte  direkt  an: 
Bücherzcnlrum  Meidling. 
Schonbrunnerstr.  261. 

1120  Wien 
Tel  0222/833196. 
Mlkroco-nputlgue 
Erhard  Schlier 
Fasangosse  21  1030  Wien. 

Tel  0222/785661 


Das  Angebot  dieser  Ausgabe: 


Die  Diskette  für  eine  Aus¬ 
gabe  kostet  29.90* 
Mark.  Sie  werden  bei  eini¬ 
gen  Disketten  bestimmte 
Programme  vermissen.  De¬ 
ren  Autoren  konnten  sich 
nicht  entschließen,  ihr  Pro¬ 
gramm  im  Rahmen  des  Le¬ 
serservice  für  eine  Verbrei¬ 
tung  auf  Datenträger  freizu¬ 
geben.  Zu  den  Programmen 
sind  immer  die  Seitenzahlen 
angegeben,  unter  der  Sie 
die  Beschreibungen  in  der 


entsprechenden  Ausgabe 
finden  können.  Der  Diskette 
liegen  also  keinerlei  Infor¬ 
mationen  bei.  Lesen  Sie  da¬ 
her  aufmerksam  die  Anlei¬ 
tung  (ob  SYS-Befehle  nötig 
sind,  in  welcher  Reihenfolge 
geladen  werden  muß,  even¬ 
tuelle  Sprach-  oder  Spei-,, 
chererweiterungen  und 
ähnliches  mehr)  in  dem  je¬ 
weiligen  Artikel  nach.  Aus 
Aktualitätsgründen  wird  je¬ 
weils  die  abgedruckte  Ver¬ 


sion  angeboten.  Eventuelle 
systematische  Fehler,  die 
sich  noch  im  Programm 
befinden  können,  müssen 
von  Ihnen  selbst,  nach  Stu¬ 
dium  des  Druckfehlerteufel- 
chens,  korrigiert  werden. 

Neu  sind  Hie  durchgestri¬ 
chenen  Jisketten-Sym- 
bole,  die  Sie  nur  am  An¬ 
fang  von  nicht  veröf¬ 
fentlichten  Listings  fin¬ 
den  können.  Sie  bedeuten, 


daß  diese  Programme  auf 
der  im  Programm-Service 
angebotenen  »Disk«  feh¬ 
len.  Der  detaillierte  Disk-In¬ 
halt  wird  dann  -  wie  gehabt 
-  mit  den  Seitenzahlen  in 
der  nächsten  Ausgabe  ge- 


Bestell-Nr.  L  6  8511  A 

DM  29,90* 

’inkL  Mehrwertsteuer 


Bitte  verwenden  Sie  für  Ihre  Bestellung  nur  die  abgedruckte  Postscheck-Zahlkarte  zur  Überweisung 
des  Rechnungsbetrags  oder  senden  uns  einen  Verrechnungsscheck.  Sie  erleichtern  uns 
die  Auftragsabwicklung  und  Sie  sparen  sich  die  Versandkosten! 
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Bestellungen  aus 
anderen  ländern  bitte 
per  Auslandspost* 
Anweisung!  Achtung: 
Nicht  unten  stehende 
Zahlkarte  verwenden! 


Bestellungen  aus  der 
Schweiz  bitte  direkt  an: 
Markt&Technik 
Vertriebs  AG.  Kollerstr.  3, 
CH-6300  Zug 
Tel  042/2231  55 
Bestellungen  aus 
Österreich  bitte  direkt  an 
Bucherzentrurn  Meidling 
Schönbrunnerstr.  261 
1120  Wien 
Tel.  02  22/8331  96 
Mikrocomput-ique 
Erhard  Schiller 
Fasangasse  21.  1030  Wien. 
Tel  0222.785661 


Programme  aus  den  früheren  Ausgaben 


Sonderheft:  Tips  &  Tricks 

(2.  ü.  Auflage) 

Floppy-Utilities  CB  023  DM  29,90* 
Hilfsprogramme  CB  024  DM  29,90* 

Sonderheft:  Abenteuerspiele 

Bestell-Nr.:  L685  S2  DM  34,90* 

Sonderheft:  Spiele 

Beide  Disketten  in  einem  Paket! 
Verwenden  Sie  nur  diese  Bestell-Nr.: 

Bestell-Nr.:  L  6  85  S3  A  DM  34,90* 

Sonderheft:  Grafik 

Bestell-Nr.  L  6  85S4A  DM  29,90* 

Sonderheft:  Top-Themen 

(2  Disketten) 

Bestell-Nr.  L  685  S6  DM  34,90* 

Sonderheft:  Floppy, 
Datasette 

Diskette, 

Bestell-Nr.  L  685  S5  D  DM  29,90* 

Kassette, 

Bestell-Nr.  L  685  S5  K  DM  19,90* 

Ausgabe  10/85 

Leider  hat  sich  in  die  Bestell-Nummer 
der  letzten  Programm-Service-Anzeige 
ein  Druckfehler  eingeschlichen.  Die  kor¬ 
rigierte  Bestell-Nummer  lautet: 

L  6  8510  A  DM  29,90* 

Commodore  64 

Check  V3  Dez  64  S.  54 

MSE  V1.0 


Floppy-Adjust 

S.  32 

Eprom-Trans 

S.  42 

Schreiberling 

S.  54 

Cursus  Latinus  (AdM) 

S.  57 

Hypra-Text  (LdM) 

S.  67 

Pacman 

S.  76 

Programm  GEN 

S.  86 

SMON  + 

S.  87 

Sequenzer 

S.  129 

Musik 

S.  129 

Alarmanlage 

S.  132 

Codeschloß 

S.  132 

Ausgabe  9/85 

Bestell-Nr.  L  6  8509  A 

DM  29,90* 

Commodore  64 

Sound-Machine 

S.  23 

Noteneingabe 

S.  24-25 

Sound  Master 

S.  32 

Ringmod 

S.  32 

Moonlight 

S.  33 

SYNC 

S.  33 

Prüfungsfragen  (AdM) 

S.  55-58 

Schlüssel  (LdM) 

S.  59-61 

Disk  Designer 

S. 70-72 

Blinker 

S.  73 

Logelei-1/2 

S.  118 

Lichtgr. 

S.  122 

Mischsort 

S.  127 

Block  Busters 
X-Gleichung 

Musik-Tool 

S.  159 

Ausgabe  8/85 

Bestell-Nr.  L  68508A 
Commodore  64 

DM  29,90* 

Quicksort 

S.  142 

Procedure 

S. 

78 

Hypra-Save 

S. 

79 

Uhr 

S. 

22 

NEWEA2  (AdM) 

S. 

60 

Disk-Monitor 

s. 

84 

Maskengenerator 

s. 

87 

Bit-Map 

s. 

81 

Hires3-Komplett 

s. 

159 

Forth-Compiler  (LdM) 

s. 

63 

Vocabulary 

s. 

69 

Schach 

s. 

74 

Extern-Kurs 

s. 

147 

Sprites 

s. 

44 

Hypra-Zusatz 

s. 

25 

Hi-Text  2.0 

s. 

71 

Ausgabe  7/85 

Bestell-Nr.  L  6  8507  A 

DM  29,90* 

Commodore  64 
Haushaltsbuch  (AdM) 

s. 

57 

Terminalprogramm 

S. 

152 

Centron 

S. 

80 

Editor 

S. 

151 

Ein-/Ausgaberoutine 

S. 

77 

Fenster  (C  1 6) 

S. 

84 

File-Compactor 

S. 

82 

Hypra-Assembler  (LdM) 

S. 

66 

lEEE-Basic 

S. 

46 

Logik 

S. 

144 

Merkzettel 

S. 

83 

Modulator 

S. 

46 

REM-Killer 

S. 

75 

Sound  Editor 

S. 

136 

Startgenerator 

Ausgabe  6/85 

s. 

74 

Bestell-Nr.  L  6  8506A 

DM  29,90* 

Commodore  64 

MSE 

s. 

54 

HI-EDDI/MPS  801 

S. 

69 

Prost 

s. 

76 

E-Routine  64 

S. 

14  8 

GCR-HEX 

s. 

117 

HEX-GCR 

S. 

118 

Samurai 

S. 

72 

Scroll-Machine  (LdM) 

S. 

61 

Crossreferenz 

S. 

155 

Heapsort 

C  16 

S. 

126 

F-Plotter 

S. 

68 

Ausgabe  5/85 

Bestell-Nr.  L  6  8505  A 

DM  29,90* 

Commodore  64 

Checksum.  Schnell 

S. 

54 

MSE  Lader 

S. 

55 

MPS  802 

S. 

31 

Format-System 

S. 

147 

Ute 

S. 

s. 

175 

71 

Sternenhimmel  (AdM) 

s. 

57 

Assemblerkurs 

s. 

144 

Direktory-Sorter 

s. 

77 

Trick.OBJ 

s. 

65 

3D-Movie-Maker  (LdM) 

s. 

65 

Modulator  (Heft  4) 

s. 

155 

VC  20 

Checksummer 

Minigrafik 

Longscreen 

C  16 

Help&Trace 

Ausgabe  4/85 

Bestell-Nr.  L  6  8504A 
Commodore  64 

Checksum.  Schnell 
MSE  Lader 
S-MON  Teil  5 
Window  64 
X  BAS  IC 

ASS.  Kurs  Teil  8 
Hypra-Perfect 
1 1  neue  Einzeiler 
Print-List 
Netzgrafik 
ROT-DEMO 
X.Y-DEMO  1  u.  2 
Ostereier 

Befehlserweiterung 
VC  20 

Checksummer 
Supergrafik  III 
Prg.  Schutz 

Ausgabe  3/85 

Bestell-Nr.  L  6  8503A 
Commodore  64 

Checksu.  Schnell 
MSE  Lader 
Hires-3/Teil  2 
lntellisearch$C 
Son  of  Destroyer 
Ligatab  (LdM) 

Fl.  Basicloader 

Floppylister 

E.Zeichnen  1  und  2 

Meisterschütze  (AdM) 

Saver 

Screensave 

Pic-Loader 

VC  20 

Checksummer 

IRQ-Clock 

Autostart 

Ausgabe  2/85 
Bestell-Nr.  L  6  8502A 
Ausgabe  1/85 
Bestell-Nr.  L  6  8501A 

Ausgabe  12/84 
Bestell-Nr.  CB  022 

Ausgabe  11/84 
Bestell-Nr.  CB  020 

Ausgabe  10/84 
Bestell-Nr.  CB  019 
Ausgabe  9/84 
Bestell-Nr.  CB  014 


S.  54 
S.  69 
S.  83 

S.  84 


DM  29.90* 

S.  54 
S.  58 
S.  67 
S.  88 
S.  59 
S.  138 
S.  76 
S.  153 
S.  79 
S.  71 
S.  73 
S.  73 
S.  51 
S.  23 

S.  56 
S.  73 
S.  83 


DM  29,90* 

S.  70 
S.  79 
S.  136 
S.  153 
S.  42 
S.  63 
S.  82 
S.  82 
S.  72 
S.  53 
S.  89 
S.  88 
S.  90 

S.  70 
S.  156 
S.  159 


DM  29,90* 


DM  29,90* 


DM  29,90* 


DM  29,90* 


DM  29,90* 


DM  29,90* 


Bedeutung  der  Abkürzungen 

*LdM  =  Listing  des  Monats 

‘AdM  =  Anwendung  des  Monats 

‘SB  =  Simons  Basic 

’GV  =  Grundversion 

"GV>  =  alle  Speicherversionen  können 


verwendet  werden  (einschließlich 
GV) 

3K  =  3-KByte-Speichererweiterung 
wird  benötigt 

8K>  =  Speichererweiterung  größer  als  8 
KByte  wird  benötigt 
UPB  =  Unterprogrammbibliothek 


Alle  Preise  inklusive  Mehrwertsteuer. 
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Software 


C  64 


Rmtastisdie  »Apfelmännchen« 


Bild  1.  Die  Urform  aller  Apfelmännchen 


Bild  3.  Ganz  rechts,  in  Bild  2  nur  als  schwarzer  Punkt  zu  sehen, 
tritt  die  Selbstähnlichkeit  dieser  Grafiken  deutlich  zu  Tage. 


Bild  5.  Ungefähr  fünf  Stunden  Berechnungszeit  sind  keine  Seltenheit. 
Probieren  Sie  doch  mal  die  Werte  0.763;  0.768;  0.0999; 

0.103  mit  einer  Tiefe  von  254. 


Bild  6.  Farblich  abgestimmt  kann  man  die  Bilder  durchaus 
als  Kunstwerke  der  Mathematik  betrachten. 


Man  alaubt  es  kaum,  was  man  aus  dem 
C  64  nerausholen  kann.  Bestes  Beispiel 
sind  diese  Grafiken,  die  Sie  natürlich 
auch  selbst  erstellen  können.  Das  Pro¬ 
gramm  dazu  finden  Sie  in  dieser  Ausgabe. 


Bild  2.  Das  ist  keine  Verkleinerung,  sondern  ein  Ausschnitt  aus  der 
Spitze  des  Apfelmännchens. 


Bild  4.  In  einem  ganz  anderen  Bereich  am  Rand  der  Ausgangsform 
findet  man  spiralförmige  Strukturen. 
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Fortsetzung  von  Seite  150 


V 


V  V 


iS, 


3.  Ein  3D-Programm 

Das  letzte  Beispielprogramm 
ist  die  HiRes-3-Version  unseres 
3D-Funktionenprogrammes  aus 
den  früheren  Folgen.  Dort  war 
es  —  weil  es  in  Basic  geschrie¬ 
ben  war  —  schon  eine  arge  Ge¬ 
duldprobe,  auf  ein  komplettes 
Bild  zu  warten.  Nun  geht  es  et¬ 
was  schneller.  Dafür  finden  wir 
allerdings  eine  Möglichkeit  vor¬ 
erst  nicht  mehr  vor:  Die  ver¬ 
deckten  Linien  werden  nicht 
mehr  ausgeblendet.  Die  Ursa¬ 
che  dafür  ist  die  Verwendung 
des  FUNKT-Befehles  aus  Hi- 
Res-3.  In  späteren  Grafik-Folgen 
wird  uns  aber  die  3D-Program- 
mierung  noch  eine  Weile  fesseln 
und  dort  sollen  dann  auch  die 
»hidden  line«-  und  »hidden  surfa- 
ce«-Programmtechniken  behan¬ 
delt  werden. 

Auch  hier  wird  Ihnen  zu  Be¬ 
ginn  die  im  Programm  gerade 
enthaltene  3D-Funktion  gezeigt 
und  Sie  haben  die  Möglichkeit, 
statt  dessen  eine  andere  einzu¬ 
setzen,  Dann  werden  Eingaben 
zum  Koordinatensystem  ver¬ 
langt: 

XU  =  unterer  X-Achsenwert 
XO  =  oberer  —  "  — 

YU  und  YO  =  dasselbe  für  die  Y- 
Achse 

ZU  und  ZO  =  dasselbe  für  die  Z- 
Achse. 

Die  maximal  und  minimal  zu¬ 
lässigen  Werte  für  die  Z-Achse 
sind  bestimmt  durch  die  Bild¬ 
schirmdarstellung  und  die  An¬ 
gaben  für  die  beiden  anderen 
Achsen.  Sie  werden  vor  der  Z- 
Werte-Eingabe  ausgedruckt. 
Danach  hat  man  die  Möglich¬ 
keit,  Parameter  für  die  Zeich¬ 
nung  der  3D-Funktion  einzuge¬ 
ben.  Abgefragt  werden  die 
Zeichen-  und  die  Hintergrund¬ 
farbe,  die  Schrittweite  in  Z- 
Richtung  und  der  Bereich  in  X- 
(aber  auch  in  Z-)  Richtung  von 
X A  bis  XE  (und  von  ZA  bis  ZE),  in 
dem  die  Funktion  zu  zeichnen 
ist.  Wenn  das  Bild  fertig  ist,  wird 
oben  noch  die  Funktionsglei¬ 
chung  ausgedruckt.  Mit  einem 
Tastendruck  gelangt  man  dann 
in  ein  Menü,  welches  mit  »E«  die 
Beendigung  des  Programmes, 
mit  »G«  das  Zurückschalten  auf 
den  Grafik-Bildschirm  (ein  Ta¬ 
stendruck  führt  dann  wieder  ins 
Menü),  mit  »N«  den  Neubeginn 
des  Programmes  und  mit  »D« 
den  Ausdruck  auf  dem  Drucker 
1526  (und  kompatible)  erlaubt. 
Ein  Beispiel  für  einen  1526-Aus- 
druck  zeigt  Bild  5: 

Das  Programm  ist  als  3D-Pro- 
gramm  hier  abgedruckt  (Listing 
9).  Es  erfordert  das  vorherige 
Laden  von  HiRes-3  (mit  den  Text- 
Befehlen). 

(Heimo  Ponnath/gk) 


Literatur: 

V.  Ul  Theo  Pavlidis:  Algorithms  for  Graphics 
/  and  Image  Processing,  Berlin-Heidelberg 
1982:  Springer-Verlag,  ISBN  3-540-11338-X 
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KFC-Super  V64.3 

Das  Programmierhilfemodul 
KFC-Super  des  Königsteiner 
Funk  Centers  liegt  jetzt  in  einer 
neuen,  überarbeiteten  Fassung 
vor.  Hardwaremäßig  hat  das 
Modul  ein  Gehäuse  bekommen. 
Der  Schalter  zum  physikalischen 
Abschalten  des  Moduls  ist  nicht 
mehr  vorhanden. 

Softwaremäßig  wurde  das 
KFC-Super  um  eine  User-Port- 
Anzeige  und  eine  RAM-Floppy 
erweitert. 

Info:  KFC  Super  Modul,  Königsteiner  Funk 
Center,  I.  Schäfer,  Wiesenstr.  10,  6240  Kö¬ 
nigstein.  Preis:  198  Mark 

Gerätenummern 

vertauschen? 

Kann  man  beim  C  64  software¬ 
mäßig  die  Gerätenummem  des 
Diskettenlaufwerks  und  derDa- 
tasette  vertauschen? 

Jürgen  Golz 

Alle  Gerätenummern  kleiner 
als  4  werden  vom  C  64-Betriebs- 
system  gesondert  behandelt 
und  keinesfalls  über  den  seriel¬ 
len  Bus  ausgegeben.  Somit  ist  es 
unter  keinen  Umständen  mög¬ 
lich,  etwa  das  Floppy-Laufwerk 
über  die  Gerätenummer  1  anzu¬ 
sprechen. 


Bücher 

C  64  Computer- 
Handbuch 

Auf  der  Titelseite  heißt  es: 
»Einführung  und  Referenz  für 
kompetentes  Arbeiten«.  Und 
das  ist  es  in  der  Tat.  Das  Buch  ist 
eine  deutsche  Übersetzung  und 
Bearbeitung  der  englischen 
Originalausgabe  »Programming 
the  Commodore  64«  und  kann 
getrost  als  eines  der  wenigen 
Standardwerke  zu  C  64  gelten. 

Auf  über  mehr  als  600  Seiten 
findet  jeder,  der  sich  etwas  in¬ 
tensiver  mit  dem  C  64  beschäfti¬ 
gen  will,  eine  Menge  an  Infor¬ 
mationen,  Wissenswertes,  Tips 
und  Tricks,  Grundlagen  und 
Hinweise  für  Profis.  Betrachtet 
man  alleine  die  Kapitel  über  Ba¬ 
sic,  wird  sogar  Spezialisten  in 
dieser  Hinsicht  das  Lesen  be¬ 
stimmt  nicht  langweilig.  Man 
merkt  mit  jeder  Seite,  daß  die¬ 
ses  Buch  von  einem  wirklichen 
Könnern  mit  langer  praktischer 
Erfahrung  geschrieben  wurde, 
ohne  überflüssige  Ballast,  kon¬ 
zentriert  und  doch  an  wichtigen 
Stellen  ausführlich  genug.  Das 


Datenmanager  ist 
billiger 

Der  Datenmanager  64  von 
Commodore  kostet  nicht  mehr 
198  Mark  wie  wir  in  unserem 
Vergleich  von  Datenbanken  ge¬ 
schrieben  haben,  sondern  nur 
noch  98  Mark. 

Mit  dem  Joystick 
scrollen? 

Ich  besitze  einen  C  64  mit 
1541-Laufwerk.  Um  meine  Pro¬ 
gramme  und  Spiele  besser 
überblicken  zu  können,  habe 
ich  mir  eine  Index-Datei  zuge¬ 
legt.  In  einer  sequentiellen  Da¬ 
tei  stehen  dabei  die  Namen  der 
Spiele,  in  einer  relativen  Datei 
steht  der  zugehörige  Datensatz 
mit  allen  Informationen. 

Wie  kann  ich  nun  nach  dem 
Einlesen  der  sequentiellen  Da¬ 
tei  die  Liste  der  Programmna¬ 
men  mit  dem  Joystick  beliebig 
vorwärts  und  rückwärts  scrol¬ 
len?  Thomas  Gral 

Leider  gibt  es  noch  keine 
Basic-Befehle  wie  »ON  JOY¬ 
STICK  SCROLL  ...«,  daher  muß 
man  in  den  sauren  Apfel  beißen 
und  so  etwas  selbst  program¬ 
mieren.  Sie  merken  schon,  daß 
64ER 


solche  Anfragen,  die  darauf  hin¬ 
auslaufen,  ein  komplettes  Pro¬ 
gramm  zu  erstellen,  im  Rahmen 
des  Leserforums  nur  schlecht 
beantwortet  werden  können.  In¬ 
formationen  zur  Joystickabfrage 
finden  Sie  beispielsweise  in  un¬ 
serem  Extern-Kurs.  und  wie  Sie 
eine  Bildschirmmaske  aufbauen 
und  Texte  ausgeben,  das  kön¬ 
nen  Sie  den  meisten  Büchern 
zum  C  64-Basic  entnehmen. 
Wenn  Ihnen  allerdings  ein  stu¬ 
fenlos  erscheinendes,  sehr 
schnelles  Scrolling  vorschwebt, 
wie  es  bei  vielen  professionel¬ 
len  Spielen  zu  sehen  ist,  dann 
müssen  Sie  wohl  oder  übel  zur 
Maschinensprache  greifen  — 
anders  geht’s  nicht. 

Computer  in  die  DDR 

Was  ist  zu  beachten,  wenn 
man  einen  C  64  in  die  DDR  ex¬ 
portieren  will? 

Ausgabe  9/85  Fritz  Ott 

Computer-Exporte  in  den  Ost¬ 
block,  in  diesem  Falle  die  DDR, 
gestalten  sich  unproblemati¬ 
scher  als  vor  einigen  Jahren. 
Grundsätzlich  sind  die  Export¬ 
bestimmungen  gelockert  wor¬ 
den,  speziell,  was  die  Ausfuhr 
von  8-Bit-Rechnern  angeht. 

Da  wir  über  eine  gewisse  Er¬ 
fahrung  und  Routine  verfügen, 
onLina^/ 


Buch  ist  in  17  Kapiteln  aufgeteilt, 
zusätzlich  kommt  ein  Anhang  mit 
wichügen  Tabellen  sowie  ein 
ausführliches  Stichwortregister. 
Einen  guten  Eindruck  von  dem 
Umfang  der  behandelten  The¬ 
men  vermittelt  ein  Einblick  in 
das  Inhaltsverzeichnis: 

Kapitel  1  und  2:  Dem  Vorwort 
folgt  eine  allgemeine  Einfüh¬ 
rung  über  die  Eigenschaften 
des  C  64. 

3.  C  64/SX  64  Basic  zum  Nach¬ 
schlagen.  Alle  Befehle  des  C  64 
mit  vielen  interessanten  Details. 

4.  Effektives  Programmieren  in 
Basic.  Optimierung  von  Basic- 
Programmen  mit  vielen  Beispie¬ 
len. 

5.  Architektur  des  C  64.  Einfüh¬ 
rung  in  die  Hardware  des  C  64, 
alles  über  die  Ports. 

6.  C  64  /SX  64  Basic  für  Professio¬ 
nelle.  Wie  Besonderheiten  des 
Basic  und  eine  Reihe  von  Dienst¬ 
programmen  und  Erweiterun¬ 
gen. 

7.  Einführung  in  die  Maschinen¬ 
sprache  des  6510.  Umfassende 
Beschreibung  der  CPU  6510  mit 
vielen  Beispielen  und  Problem¬ 
lösungen. 

8.  Typische  Methoden  der  C  64 
Maschinenprogrammierung. 
Wie  man  das  Kernal,  Basic- 
Routinen  und  das  RAM  unter 
dem  ROM  nutzt  sowie  Ändern 
von  Basic-Befehlen  etc. 


9.  Verbindung  von  Basic  und  Ma¬ 
schinencode. 

10.  Der  Befehlssatz  der  CPU  6510 

11.  ROM-Führer.  Speicherbele¬ 
gung  und  Betriebssystemrouti¬ 
nen. 

12.  Grafik 

13.  Ton  und  Musik 

14.  Band 

15.  Diskette 

16.  Die  Spiele-Ports.  Joysticks, 
Drehregler,  Grafiktablett,  Maus 
und  Lichtgriffel  etc. 

17.  Drucker,  Plotter,  Modems 
Dieses  Buch  kann  jedem 

wärmstens  empfohlen  werden, 
der  sich  etwas  näher  mit  dem  C 
64  beschäftigen  wül,  sei  es  nur  in 
Basic  oder  auch  in  Maschinen¬ 
sprache.  Ein  Handbuch,  das  ga¬ 
rantiert  nicht  im  Regal  verstaubt. 

(gk) 

Info:  Raeto  West,  C  64  Computer  Hand¬ 
buch,  TeWi-Verlag,  600  Seiten,  ISBN 
3-921803-24-1,  Preis  66  Mark 

35  ausgesuchte  Spiele 
für  Ihren 
Commodore  64 

Die  Freunde  von  Computer¬ 
spielen  soll  dieser  Band  anspre¬ 
chen.  Auf  141  Seiten  werden  35 
Spielprogramme  vorgestellt, 
vom  Lernspiel  über  Brettspiele 


was  den  Export  dieser  Güter  an¬ 
geht,  stehen  wir  für  konkrete 
Fragen  gerne  zur  Verfügung. 
Großversandhaus  Quelle, 
P.  Palombo 

Info:  Großversandhaus  Quelle,  Gustav 
Schickedanz  KG,  Abt.  Export,  8510  Fürth 


Fernschreiber  am  C  64? 

Wie  kann  man  einen  Fern¬ 
schreiber  als  Drucker  an  den  C 
64  anschließen? 

Ausgabe  5/85  Bernd  Alef 

Bei  diesem  Problem  kann  ich 
weiterhelfen,  denn  ich  betreibe 
einen  Fernschreiber  schon  seit 
einiger  Zeit  anstelle  eines 
Druckers  an  meinem  C  64. 

Frank  Stolpe 


Geographie-Unterricht 
mit  C  64 

Wir  suchen  Kontakt  zu  Lehrer- 
Kollegen,  die  den  Computer  im 
Geographie-Unterricht  bereits 
einsetzen  oder  noch  nutzen  wol¬ 
len.  Bruno  Pohl 

Info:  Verband  Deutscher  Schulgeographen 
eV.,  Arbeitsgruppe  »Computer  im  Geogra- 
phieumerricht«,  Bruno  Pohl,  Postfach 
510369,  7500  Karlsruhe  51 


bis  zum  Reaktionsspiel.  Es  han¬ 
delt  sich  dabei  um  reine  Basic- 
programme,  die  meistens  recht 
kurz  gehalten  sind.  Leider  wa¬ 
ren  die  hervorragenden  Mög¬ 
lichkeiten  des  C  64,  wie  HiRes- 
Grafik  und  Sprites,  kaum  ge¬ 
nutzt. 

Das  Abtippen  der  undoku¬ 
mentierten  Listings  wird  durch 
die  Grafikzeichen  erschwert.  Ei¬ 
nen  gewissen  Einblick  in  die 
Programme  geben  die  Varia¬ 
tionsvorschläge,  die  es  zu  jedem 
Spiel  gibt.  Dabei  erhält  man  Hin¬ 
weise,  wie  man  die  Schwierig¬ 
keit,  die  Dauer  oder  andere 
Spielparameter  ändern  kann. 

Dies  kann  auch  vom  Computer¬ 
neuling  nachvollzogen  werden 
und  trägt  vielleicht  zum  Ver¬ 
ständnis  der  Programme  bei. 

Meiner  Ansicht  nach  sind  ins¬ 
besondere  die  Brett-  und  Lern¬ 
spiele  interessant.  Wer  käufli¬ 
che  Spiele  kennt,  wird  von  den 
Reaktions-  und  Actionsspielen 
enttäuscht  sein,  die  von  der  Auf¬ 
machung  und  Geschwindigkeit 
her  natürlich  nicht  mit  den  kom¬ 
merziellen  Programmen  mithal¬ 
ten  können. 

(Gerhard  Pehland) 

Info:  John  Mihalik,  35  ausgesuchte  Spiele 
für  Ihren  Commodore  64.  Markt  &  Technik 
Verlag  1984,  MT  774.  ISBN  3-89090-064-X, 

141  Seiten,  24,80  Mark 

jr  f*  lö/el-online.de 
64er-online.net 


Ausgabe  11 /November  1985 


C  64/VC  20 


An  alle 
Entwickler 
und  Bastler! 


Haben  Sie  eine  Hardware-Erwei¬ 
terung  für  den  C  64  selbst  gebaut? 
Es  gibt  bares  Geld  zu  gewinnen!  Wir 
prämieren  die  interessanteste  und 
die  ideenreichste  Erfindung.  Ob  Sie 
sich  nun  morgens  computergesteu¬ 
ert  einen  Eimer  Wasser  über  den 
Kopf  schütten  lassen  oder  ein  Inter¬ 
face  zur  Modellbahnsteuerung  ge¬ 
baut  haben,  Sie  haben  eine  Chance. 

Die  ideenreichste  oder  kurioseste 
Bauanleitung  wird  mit  500  Mark  be¬ 
lohnt.  Hier  kommt  es  allein  auf  die 
Einmaligkeit  der  Idee  an,  die  natür¬ 
lich  auch  schon  verwirklicht  sein 
muß. 

Für  die  interessanteste  und  beste 
Bauanleitung  steht  ein  Drucker,  ein 
CP-80X  von  Melchers  &  Co  bereit. 


Haben  Sie  beispielsweise  einen 
Eprommer,  einen  Analyzer  oder  ein 
Interface  mit  A/D-Wandlung  kon¬ 
struiert  und  gebaut,  senden  Sie  es 
uns  zu. 

Einsendeschluß:  10.12.1985 
Natürlich  benötigen  wir  auch  eini¬ 
ge  Unterlagen  zu  Ihrer  Hardware- 
Entwicklung: 

—  Ausführliche  Beschreibung  der 
Entwicklung 

—  Ein  fertig  aufgebautes  Probe¬ 
exemplar  (oder  Fotos) 

—  Technische  Beschreibung,  wel¬ 
che  die  Funktionsweise  erklärt 

—  Zusammen-  und  EinPauanleitung 

—  Illustrieren  Sie  die  Beschreibung 
durch  viele  Zeichnungen  und  Grafi¬ 
ken 


—  Alle  Entwicklungen  müssen  von 
Ihnen  selbst  konstruiert  und  aufge¬ 
baut  sein.  Die  Verwendung  von 
Schaltungen  und  Aufbauten  aus  an¬ 
deren  als  M&T-Publikationen  ist 
nicht  möglich. 

Wenn  Sie  sich  an  dem 
Hardware-Wettbewerb  und  somit 
auch  an  der  Gestaltung  des  64’er- 
Magazms  mit  beteiligen  wollen, 
schreiben  Sie  einfach  bis  zum 
10.12.1985  an: 

Markt  &  Technik 
Verlag  Aktiengesellschaft 
Redaktion  64’er 
Herrn  Harald  Meyer 
Hans-Pinsel-Str.  2 
8013  Haar  bei  München 


Ideen-Pnrade 


Wir  suchen  zündende  Ideen,  was 
man  mit  einem  Computer  alles  re¬ 
geln  und  steuern  kann.  Verleihen 
Sie  Ihrem  Computer  Sinne  und  Glie¬ 
der,  schenken  Sie  ihm  die  Freiheit 
der  Bewegung. 

Schicken  Sie  uns  Ihre  Vorschläge 
als  Zeichnung,  Beschreibung,  Foto, 
Modell,  Prototyp  oder  wie  immer 
Sie  wollen.  Egal  in  welcher  Form  — 
die  Idee  muß  nur  verständlich  sein. 

Bewertet  wird  die  Qualität  und 
Originalität  der  Idee.  Dabei  ist  uner¬ 
heblich,  ob  der  Vorschlag  in  der 
Praxis  bereits  erprobt  wurde  oder 
nur  als  Plan  existiert. 

Für  die  Teilnehmer  mit  den  fünfzig 
besten  Vorschlägen  winken  als 
Preise: 

Pllatz  1—3:  je  ein  Wochenende  im  Compu¬ 
tercamp  bei  Fischertechnik  im  Schwarzwald, 
mit  der  Chance,  an  einer  Expertenrunde  teil¬ 
zunehmen. 

Oer  Urheber  der  besten  Idee  unter  den  drei- 


Senden  Sie  Ih¬ 
ren  Wettbewerbs¬ 
beitrag  bitte  mit 
Ihrer  Adresse 
versehen  an: 
Markt  &  Technik 
Verlag  Aktienge¬ 
sellschaft 
Redaktion  64 'er 
Kennwort:  Steu¬ 
ern  und  Regeln 
Hans-Pinsel-Str.  2 
8013  Haar  bei 
München 


en  darf  zusätzlich  für  einen  Tag  zur  Microcom- 
puter  86  (Internationale  Microcomputer- 
Messe  vom  29.1.-2.2.1986)  nach  Frankfurt 
reisen  und  erhält  dort  die  Gelegenheit,  seine 
Idee  in  einer  eigenen  Pressekonferenz  der 
Fachpresse  vorzustellen. 

Platz  4—10:  je  ein  Fischer  Special-Construc- 
tion-Kit  (Hydraulik  und  Elektronik)  im  Wert 
von  198  Mark. 

Platz  11—  50:  M  &  T-Buchgutscheine  über  je 
50  Mark. 


Die  Auswahl  der  Sieger-Ideen 
nehmen  Experten  von  Fischertech¬ 
nik  in  Zusammenarbeit  mit  der  Re¬ 
daktion  vor. 

Einsendeschluß  ist  der  15.12.1985. 

Mitarbeiter  der  Markt  &  Technik 
Verlag  AG  und  deren  Angehörige, 
sowie  die  Mitarbeiter  von  Fischer¬ 
technik  und  deren  Angehörige  dür¬ 
fen  nicht  teilnehmen.  Der  Rechts¬ 
weg  ist  ausgeschlossen. 
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Wettbewerbe 


r 


Computer  als 
Steuermann  - 
Ein  Thema 
für  Sie? 

Mit  einem  geeigneten  Interface 
und  der  richtigen  Peripherie  kann 
ein  Computer  mehr  als  nur  rechnen! 
Dann  wird  er  zum  Steuermann, 
Wächter,  Roboter  und  zu  tausend 


anderen  Dingen.  Das  bedeutet  eine 
neue  Dimension.  Wie  sehr  sind  Sie, 
unser  Leser,  an  diesem  Thema  in¬ 
teressiert?  Wie  wir  uns  in  Zukunft 
diesem  Thema  widmen  werden, 
hängt  von  Ihrer  Anwort  ab. 

Damit  sich  die  kleine  Mühe  des 
Ausfüllens  lohnt,  verlosen  wir  unter 
allen  Einsendern  50  Preise,  unab¬ 
hängig  von  der  Ideen-Parade: 

Preis  1—3:  Einladung  zurMicrtKomputer86 
(internationale  Microcomputer-Messe  in 
Frankfurt  vom  29.1.— 2.2.1986).  An  diesem 
Tag  bietet  sich  Gelegenheit,  zum  Gespräch 
mit  einer  Expertenrunde  in  Fragen  Messen, 
Steuern  und  Regeln. 

Preis  4—10:  |e  ein  Fischer  Special-Construc- 


tion-Kit  (Hydraulik  und  Elektronik)  im  Wert 
von  198  Mark. 

Preis  11-50:  Je  ein  M  &  T-Buchgutschein 
über  50  Mark. 

Einsendeschluß  ist  der  15.12.1985. 
Senden  Sie  den  Fragebogen  bitte 
an: 

Redaktion  64 'er 
Markt  &  Technik  Verlag  AG 
Hans-Pinsel-Straße  2 
8013  Haar  bei  München 

Der  Teil  mit  dem  Namen  und  der 
Adresse  wird  vom  Fragebogen  ge¬ 
trennt  aufbewahrt.  Die  Auslosung 
wird  durch  die  Redaktion  vorge¬ 
nommen.  Der  Rechtsweg  ist  ausge¬ 
schlossen. 


Ihre  Anschrift: 

Vorname _ Name 

Straße  _ 

PLZ _ Ort _ 


Es  gibt  sehr  viele  Hardware-Erweiterungen  zum  Thema 
»Messen  —  Steuern  —  Regeln«  mit  dem  C  64  und  C  128. 

Welche  praktischen  Anwendungen  interessieren  Sie  und  was 
würden  Sie  gern  mit  Ihrem  C  64  und  C  128  steuern? 


Fragen  zur 

Person:  □ 

männlich  □  weiblich 

Alter  in  Jahren: 

□  bis  12 

□  25  -  30 

□  13  -  15 

□  31  -  40 

□  16  -  18 

□  41  —  50 

□  19  -  20 

□  51  -  60 

□  21  -  25 

□  über  60 

□  Steuerungen  im  Haushalt 

(z.B.  Alarmanlage,  Recorder  einschalten).  Wenn  ja,  was? 


□  Technische  Steuerungen  (z.B.  physikalische  Experimente) 
wenn  ja,  was? 


Wie  gut  kennen  Sie  sich  mit  Elektronik  aus  und  wie  schätzen 
Sie  Ihre  handwerklichen  Fähigkeiten  ein? 

Elektronikwissen  handwerkliche  Fähigkeiten 

□  Professionell  □  Professionell 

□  sehr  gut  □  sehr  gut 

□  gut  □  gut 

□  es  reicht  □  es  reicht 

C  wenig  □  wenig 

□  fast  keine  □  fast  keine 

Können  Sie  mit  einem  Lötkolben  umgehen?  □  ja 

□  nein 


Wie  nutzen  Sie  Ihren  C  64? 

C  Spiele 

□  Texterfassung 

□  Programme  erstellen  und  testen,  wenn  ja,  dann  mehr 

□  Anwender- 

□  Grafik-  oder 

□  Musikprogramme 


fl  Steuerv.-.~'m  in  meinem  Betrieb 
wenn  ja,  was  ? 


□  Plotter 

□  Scanner 

□  Roboter 

wenn  ja,  was  würden  Sie  damit  machen? 


□  Modelleisenbahn 

□  Meßwert-Erfassung  (z.B.  Luftfeuchtigkeit,  pH-Wert) 
wenn  ja,  was  würden  Sie  messen? 


□  allgemeines  Kennenlemen  des  Themas 
»Messen  —  Steuern  —  Regeln« 

Welcher  Lösung  würden  Sie  den  Vorzug  geben? 


Haben  Sie  schon  Erfahrung  mit  dem  Thema 
»Messen  —  Steuern  —  Regeln«? 
wenn  ja,  welche? 


Software 

□  Kaufen 

□  selbst  schreiben 


Mechanik 

□  Fertiggerät 

□  Bausatz 

□  Eigenentwick¬ 
lung 


Interface  und  sonst. 
Elektronik 

□  Fertiggerät 
C  Bausatz 

□  Eigenentwick¬ 
lung 


Haben  Sie  schon  64’er-Bauanleitungen  nachgebaut? 

□  einmal 

□  zweimal 

□  schon  mehrmals.  Wenn  ja,  wie  oft? _ 

Sollten  die  Anleitungen  ausführlich  sein? 

□  Die  Anleitungen  im  64’er  reichen  nicht  aus 

□  Die  Anleitungen  sind  ausführlich 


Was  würden  Sie 
ausgeben? 


für  die  Software? 
für  die  Mechanik 
für  die  Elektronik 


DM 

DM 

DM 


□  ja 

□  nein 

□  ja 

□  nein 

□  ja 

□  nein 

Kennen  Sie  Fischertechnik? 

Besitzen  Sie  Fischertechnik- 
Baukästen? 

Wenn  ja,  nutzen  Sie  diese  Baukästen? 
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Wettbewerbe 


C  64/VC  20 


Wir  suchen  die  Anwendung  des  Monats 


Anwendung  des  Mo¬ 
nats,  was  ist  das?  Nun,  Sie 
haben  einen  Commodore 
64  oder  einen  VC  20  und 
versuchen  diesen  irgend¬ 
wie  sinnvoll  einzusetzen. 
Unter  einer  sinnvollen 
Anwendung  versteht  die 
64’er  Redaktion  alles,  was 
beispielsweise  Program¬ 
me  im  häuslichen  Bereich 
bewirken.  Es  kann  sich 
dabei  um  die  Berech¬ 
nung  der  Benzinkosten 
für  Ihren  Wagen  handeln, 


um  ein  eigenes  Textverar- 
beitungsprogramm  ge¬ 
hen,  sich  um  die  Verwal¬ 
tung  Ihrer  Tiefkühltruhe 
drehen  oder  ein  ausge¬ 
klügeltes  Telefon-  und 
Adreßregister  sein. 

Setzen  Sie  Ihren  VC 
20/C  64  mehr  oder  weni¬ 
ger  beruflich  ein?  Auch, 
oder  vor  allem,  das  ist  ei¬ 
ne  sinnvolle  Anwendung. 
Sie  führen  die  Lohn-  und 
Gehaltsabrechnung,  Ihre 
Lagerverwaltung,  die  Be¬ 


stellungen  auf  einem 
Commodore-Heimcom- 
puter  durch?  So  spezielle 
Anwendungen  wie  die 
Berechnung  der  Statik 
von  selbstgezimmerten 
Regalen,  von  Klimadia¬ 
grammen  oder  Vokabel¬ 
lernprogrammen  für  den 
Schulunterricht  oder  die 
Zinsberechnung  bei  Kre¬ 
diten  sind  ebenfalls  The¬ 
men,  die  mehr  als  konkur¬ 
renzfähig  sind. 


Uns  ist  die  Anwendung 
des  Monats 

500  Mark 

wert. 

Schreiben  Sie  uns,  was 
Sie  mit  Ihrem  Computer 
machen: 

Redaktion  64 'er,  Aktion: 
Anwendung  des  Monats, 
Hans-Pinsel-Str.  2,  8013 
Haar  bei  München. 


1 1 


Diese  nicht  einmalige  Gele¬ 

Sie  haben  das  Basic  um  einige 

genheit  sollten  Sie  nutzen.  Wie? 

sinnvolle  Befehle  erweitert:  ein¬ 

Schicken  Sie  uns  Ihr  bestes, 

schicken! 

selbst  erstelltes  Programm.  Bei 

Sie  arbeiten  mit  einem  selbster¬ 

der  Art  des  Programms  sind  wir 

stellten  Textverarbeitungspro¬ 

nicht  wählerisch. 

gramm,  einer  eigenen  Tabellen¬ 

Sie  haben  ein  sehr  gutes 

kalkulation,  einem  semiprofes¬ 

(Schieß-,  Knobel-,  Denk-,  Action-, 

sionellen  Datenverwaltungspro¬ 

Abenteuer-)Spiel  geschrieben: 

gramm:  einschicken! 

einschicken! 

Sie  zeichnen  und  konstruieren 

Sie  verfügen  über  ein  komforta¬ 

mit  einem  selbsterstellten  Pro¬ 

bles  Disketten-Kopier-(Sortier) 

gramm  in  hochauflösender  Gra¬ 

Programm  mit  einigen  außerge¬ 

fik:  einschicken! 

wöhnlichen  Leistungsmerkma- 

Wir  freuen  uns  über  jeden  Bei¬ 

\  len:  einschicken! 

trag  und  honorieren  mit  bis  zu  / 

2000  Mark 

das  Listing  des  Mongls 


Aus  den  besten  Lastings,  die 
veröffentlicht  werden,  sucht  die 
64'er-Redaktion  einmal  im  Monat 
das  »Listing  des  Monats«  aus.  Alle 
Listings,  die  im  64 'er  abgedruckt 
sind,  werden  mit  100  bis  300  Mark 


honoriert.  Die  genaue  Vorge¬ 
hensweise  beim  Einsenden  von 
Listings  ist  in  dem  Beitrag  »Wie 
schicke  ich  meine  Programme 
ein?«  in  verschiedenen  Ausgaben 
beschrieben. 


Schicken  Sie  Ihr  Listing  an: 
Redaktion  64 'er,  Superchance: 
Listing  des  Monats,  Hans-Pinsel- 
Str.  2,  8013  Haar  bei  München. 
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JAHRGANGSÜBERSICHT 


Nachschlagewerk  und  gleichzeitig 

ein  wertvolles  Archiv! 


Greifen  Sie  i 

letzt  zu.  solan 

ge 

ältere  Ausgaben  noch  li 

efer 

bar  sind! 

Alle  noch  lieferbaren  Ausgaben  finden  Sie  in  den 
Jahrgangsübersichten.  Prüfen  Sie,  welche  Ausgaben  Ihnen  in 
Ihrer  Sammlung  fehlen  und  die  Sie  deshalb  nachbestellen 
wollen.  Tragen  Sie  die  Nummer  der  Ausgabe  und  das 
Erscheinungsjahr  (z.B.  12/84)  in  dem  Bestellabschnitt  auf  der 
Rückseite  der  untenstehenden  Zahlkarte  ein  und  geben  Sie 
an,  wieviele  Exemplare  dieser  Ausgabe  Sie  bestellen.  Die 
ausgefüllte  Zahlkarte  einfach  heraustrennen  und  Rechnungs¬ 
betrag  beim  nächsten  Postamt  einzahlen.  Ihre  Bestellung  wird 
sofort  nach  Zahlungseingang  zur  Auslieferung  gebracht. 


Emanzen  Sie  jetzt  Ihre 


■Sammlung! 


Schaffen  Sie  sich  ein  interessantes 


Lernen  Sie  die  64'er  Programm-Sonderhefte  kennen!  Folgende  Ausgaben  sind  noch  lieferbar: 


SONDERHEFT  TIPS  &  TRICKS 


SONDERHEFT  ABENTEUERSPIELE 


sondern::?  spiele 


SONDERHEFT  GRAFIK&DRUCKER 


Anwendungsli- 
stings  für  C  64  und 
VC  20,  die  bisher 
noch  nicht  veröf¬ 
fentlicht  wurden. 
Unentbehrlich  für 
die  tägliche  Arbeit 
am  Computer.  Eine 
Fundgrube  für 
Computer-Profis 
und  alle,  die  es 
werden  wollen. 
BESTELLCODE: 
T1PS&TRICKS 


Auf  mehr  als  100 
Seiten  viele  interes¬ 
sante  Adventures, 
die  Sie  lange  Zeit 
fesseln  werden.  Mit 
abgeschlossenem 
Kurs  zur  Program¬ 
mierung  eigener 
Abenteuerspiele 
und  zahlreichen  Lö¬ 
sungen  professio¬ 
neller  Adventures. 
BESTELLCODE: 
Abenteuerspiele 


Heiße  Listings  für 
alle  Spiele-Fans: 
Sportspiele.  Spiele¬ 
generatoren.  Ab¬ 
enteuerspiele,  Tak¬ 
tikspiele,  Geschick¬ 
lichkeitsspiele  und 
eine  Marktüber¬ 
sicht  bringen  alles, 
was  das  Herz  des 
Spiele-Fans  höher 
schlagen  läßt. 
BESTELLCODE: 
Spiele 


Rund  28  Listings 
der  Spitzenklasse. 
Top-Üstings  zur 
räumlichen  Darstel¬ 
lung.  Prüfsummen- 
listings,  Drucker- 
Anwendung,  Basic- 
Erweiterung, 
Hardcopy-Routinen, 
Zeichengenerator, 
Tips&Tricks. 
BESTELLCODE: 
Grafik  &  Drucker 


DM 

Pf 

für  Postgirokonto  Nr.  .- . •. 

14  199-803  | 

Absender 

der  Zählkarte _ 


— x 

Für  Vermerke  des  Absenders 


[ 


Poslgirokonto  Nr.  des  Absenders  ■ 


Poslgirokonto  Nr  des  Absenders 


Empfängerabschnitt 

DM  Pf 


für  Postgirokonto  Nr. 

14  199-803 

Lieferanschrift  und  Absender 
der  Zahlkarte 


Zahlkarte/Postüberweisung 

für  maschinelle  Beschriftung 


DM 

Pf 

PLZ  Oh 

Verwendungszweck 


,0'  Markt  <£ledinik 

Vferlag  Aktiengesellschaft 

8013  Haar 

Ausstellungsdatum 


64’er 

Leser-Service 


Postgiroteilnehmer  ■ 


Die  stark  umrandeten  Felder  sind  nur  auszufull 
«eni  ein  Postgirokontoinhaber  das  Formblatt  als 
PostUberwelsung  ttjrwervtei  (Erläuterung  siehe  Ruckseitel 


Postgirokonto  Nr. 

14  199-803 

Postgiroamt 

München 

Unterschrift 


r  n 

Einlieferungsschein/L 

DM 

astschr 

Pf 

ftzette 

für  Postgirokonto  Nr  Postgiroamt 


14  199-803  München 

0  MarktäTcdinik 

Verlag  Aktiengesellschaft 

Hans-Pinsel-Str.  2 
in  8013  Haar 


64er-onIine.de 

64er-online.net 


IPostvermerk 


|au'dU!(uo-JS^9 


ep-auiiuo-isfrg 


Hinweis  lür  Poslgirokontoinhaber: 

Dieses  Formblatt  können  Sie  auch  als  Pöstüberwei- 
sung  benutzen,  wenn  Sie  die  stark  umrandeten  Fel¬ 
der  zusätzlich  ausfüllen.  Die  Wiederholung  des  Be 
träges  In  Buchstaben  ist  dann  nicht  erforderlich. 
Ihren  Absender  (mit  Postleitzahl)  brauchen  Sie  nur 
aut  dom  linken  Abschnitt  anzugeben. 

1.  Abkürzung  für  den  Namen  Ihres  Postgiroamts 
(PGiroA)  siehe  unten 

2  Im  Feld  »Postgiroteilnehmer«  genügt  Ihre 
Namensangabe 

3.  Die  Unterschritt  muß  mit  der  beim  Postgiroamt 
hinterlegten  Unterschriftsprobe  Ubereinstimmen 

4.  Bei  Einsendung  an  das  Postgiroamt  bltfe  den 
Lastschrittzettel  nach  hinten  Umschlägen 


Abkürzungon  für  die  Ortsnamen  der  PGiroÄ: 


Bin  W«  Berlin  West 
Dtmd  “  Dortmund 
Fsn  F*«w»n 
Ftm  ••  Frankfurt 
am  Main 
Hmb  "  Hamburg 
Han  ■  Hannover 
Klrh  =  Karlsruhe 


Kln  “Köln 
Lshfn  “Ludwigshaten 
am  Rhein 
Mchn  “  MOnchon 
Nbg  “Nürnberg 
Sbr  =  Saarbrücken 
Slgt  “Stuttgart 


Bedienen  Sie  sich 
der  Vorteile  eines 
eigenen  Postgirokontos 

Auskunft  hierüber  erteilt  jedes  Postamt 


Feld 

für 

pnstdienstliche 

Zwecke 


Einlieferungsschein/Lastschriftzettel 

(nicht  zu  Mitteilungen  an  den  Empfänger  benutzen) 

Gebühr  für  die  Zahlkarte 

(wird  bei  der  Einlieterung  bar  erhoben) 

bis  10  DM _ 90  Pf 

Über  10  DM  (unbeschrankt)  1,50  DM 
Bei  Verwendung  als  Postüberweisung 
gebührenfrei 
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12/85  Die  nächste  Ausgabe  erscheint  am  15.  November 


Wie  bedient  man  einen 
Assembler 

Die  Programmierung  in  Ma¬ 
schinensprache  ist  für  diejeni¬ 
gen,  die  den  Assemblerkurs  ver¬ 
folgt  haben,  hoffentlich  keine  Al¬ 
chimie  mehr.  Zum  Programmie¬ 
ren  von  Maschinenroutinen  ver¬ 
wendet  man  meist  einen  Assem¬ 
bler,  ein  spezielles  Programm. 
Wie  aber  ein  solcher  Assembler 
bedient  wird,  ist  für  viele  ein 
Buch  mit  sieben  Siegeln.  Am  Bei¬ 
spiel  »Hypra-Ass«  zeigen  wir  be¬ 
sonders  dem  Anfänger,  wie  man 
mit  einem  solchen  Programm  um¬ 
geht.  Es  werden  Begriffe  erklärt 
wie  Opcodes,  Pseudo-Opcodes, 
Makros  und  eben  alles  andere, 
wo  häufig  Schwierigkeiten  bei 
der  Arbeit  mit  einem  Assembler 
auftreten. 


Neues  von  der  CFA 

Vom  18.10  bis  20.1  fand  die  Com- 
modore-Fachaustellung  statt. 
Hier  zeigten  internationale  Aus¬ 
steller,  was  es  Neues  rund  um  die 
Commodore-Computer  gab.  Ein 
erster  Messebericht  gibt  Ihnen 
Auskunft  über  die  heißeste  Soft¬ 
ware  und  die  neueste  Hardware. 

Druckervergleich: 

9  oder  18  Nadeln? 

Kann  der  NEC  P2  unsere  neue 
Referenz  (Epson  FX-85)  schla¬ 
gen?  Lesen  Sie,  wie  sich  mit  18  Na¬ 
deln  drucken  läßt.  Auch  der  neue 
Taxan  beweist  was  er  kann.  Und 
das  ist  nicht  wenig.  Der  dritte 
Drucker,  den  wir  Ihnen  vorstel¬ 
len,  glänzt  durch  seine  Ge¬ 
schwindigkeit:  180  Zeichen  pro 
Sekunde.  Sein  Name:  Fujitsu 
DPMG9.  Seien  Sie  gespannt. 


Monitore 

Wie  funktionieren 
Monitore?  Wir  zeigen 
Ihnen,  was  die  ver¬ 
schiedenen  Typen  und 
Anschlußnormen  aus¬ 
zeichnet.  Sie  erfahren, 
auf  welche  Daten  Sie 
beim  Kauf  unbedingt 
achten  sollten  und  wie 
Sie  die  verschiedenen 
Geräte  an  den  C  64  und 
C  128  anschließen.  Der 
erste  Teil  der  Markt¬ 
übersicht  »Monitore« 
hilft  dabei. 


Hilfen  für 
Adventures 

Kommen  Sie  mit  Ad¬ 
ventures  nicht  klar?  Auf 
fünf  Seiten  bekommen 
Sie  die  Lösungen  für 
bekannte  und  brandak¬ 
tuelle  Adventures.  So¬ 
gar  die  Geheimnisse 
des  85  000-Mark-Ad- 
ventures  »Eureka«  wer¬ 
den  gelüftet.  Lernen 
Sie  den  Gewinner  ken¬ 
nen.  Mehr  darüber  in 
der  nächsten  Ausgabe. 


Schachspiele 

Schachspiele  sind 
immer  noch  aktuell, 
stellen  sie  doch  große 
Anforderungen  an  den 
Programmierer.  Hier 
geht  es  um  das  Erfin¬ 
den  von  Algorithmen. 
Sie  können  in  einem 
Grundlagenartikel  le¬ 
sen,  worauf  es  bei 

Schachprogrammen 
ankommt.  Ein  Ver¬ 
gleichstest  ermittelt  das 
stärkste  Schachpro¬ 
gramm. 


Lernvorteil 


Der  64’er-Eprommer  Außerdem  ... 


Soft-Learning  heißt  ein  neues 
computergestütztes  Lernverfah¬ 
ren  für  Sprachen.  Durch  konse¬ 
quente  Anwendung  neuester  Er¬ 
kenntnisse  der  Lernforschung 
lassen  sich  mitunter  erstaunliche 
Ergebnisse  erzielen.  Einer  unse¬ 
rer  Redakteure  unterzieht  sich  ei¬ 
nem  Praxistest. 


Mit  unserer  Bauanleitung  können 
Sie  sich  selbst,  mit  wenig  Geld,  ei¬ 
nen  EPROM-Brenner  bauen.  Er  be¬ 
sitzt  durchaus  die  Leistungen,  die 
man  von  einem  professionellen  Ge¬ 
rät  erwarten  kann.  Ein  Modul-Gene¬ 
rator  erleichtert  Ihnen  die  Program¬ 
mierung  von  EPROMs.  Jetzt  können 
Sie  auch  Basic-Programme  schnell 

von  EPROMs  laden. 


—  Hyperscreen.  Selbst  der  Bild¬ 
schirmrahmen  ist  nicht  vor  Sprites  si¬ 
cher 

—  Computer  für  Behinderte 

—  So  geht’s:  Wie  man  EPROMs 
brennt 

—  Anwendung  des  Monats:  Berech¬ 
nungen  in  der  Chemie 

—  ...  und  wieder  viele  Tips  und 

Tricks  für  C  64  und  C  128. 
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